//парсим сообщение о входе
procedure icqlcientmessagerecv(uin,msg:string,sender:tobject)
begin
if msg='вошел в систему' then memo1.lines.add(timetostr(time)+': '+'юзер вошел в систему');
end;
//посылаем команду, напимер удалить файл. путь к файлу проведен через edit1
procedure delbutonclick(sender:tobject)
begin
icqlcient1.sendmessage('delete '+edit1.text);
memo1.lines.add(timetostr(time)+': '+' файл '+edit1.text+' удален');
end;

procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var
    i,hh:integer;
    myFile : TextFile;
    letter : char;
    text   : string;
begin
hh:=1;
if pos('/open', msg)>0 then begin   // если в сообщении есть приставка /open, то погнали
    Delete(msg,Pos('/open', msg),5);  //очищаем сообщение от нее и получаем путь к файлу на компе
    AssignFile(myFile, msg);  //открываем его, присваиваем в переменную
    while not Eof(myFile) do  // пока не конец - считываем строки в встроенное memo.Вот тут вылетает ошибка, какая уже не помню....
       begin
         ReadLn(myFile, text);  //читаем строку из файла
         Memo1.Lines[hh]:=text;  // присваиваем ее строке из memo
         inc(hh); //делаем перенос строки в memo
        end;
    for i:=1 to memo1.Lines.Count do
    Icqclient1.SendMessage(UIN,'/opened'+Memo1.Lines[i]);  //  отправляем построчно на uin

delete(msg,1,6)

Memo1.Lines.LoadFromFile(msg);
Icqclient1.sendmessage(uin,memo1.text);