Всё, решение найдено. Если кому интересно:
Code
procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var
OutText : PChar;
Len : integer;
Res : Pchar;
s:string;
begin
OutText := AllocMem(2048);
Len := 2048;
Res := GetReplyTo(PChar(msg), OutText, Len);
icqclient1.SendMessage(StrToInt(UIN),OutText);
Memo1.Lines.Add(UIN + ':..' + Msg);
Memo1.Lines.Add('БОТ:........'+ Res);
FreeMem(OutText, Len);
end;
