[arach]

Код:

procedure TForm1.ICQMessage(Sender: TObject; Msg, UIN: String);
begin
if Trim(Msg) = edit1.Text then begin
 LoadNumbers(labelededit4.text);
 ICQ.SendMessage(StrToInt(UIN), memo2.Lines.Text);
 form1.Memo2.Clear;
 Exit;
end;