Узнать символы после слова ICQClient

[qiwi289]

Делаю icq бота первая функция - генератор паролей.Например по запросу !пароль (число от 1 до 20(ДЛИНА ПАРОЛЯ)) то приходит в ответ пароль заданной длины.Вопрос как узнать число после запроса.

[qiwi289]

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var
A:integer;
I,o:string;
p,j:integer;
Mass:array [1..20] of string;
begin
for p:=1 to 20 do
memo2.Lines.Add(UIN);
memo1.Lines.add(UIN + ': ' + Msg);
if pos('!ïàðîëü ',msg)<>0 then
J:=pos('!ïàðîëü ',mass[p])+9;
edit2.text:=inttostr(j);
O:=WeakPassword(j);
ICQClient1.SendMessage(strtoint(UIN),o);

[dolphin705]

if AnsiLowerCase(copy(Msg,1,7)) ='!пароль' then
  begin
    simvol:= copy(Msg,8,Length(Msg));
  end

[qiwi289]

Можно поподробней

[qiwi289]

Всё понял спс