procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);  
var  
icq: cardinal;  
     begin  
      icq := StrToInt(UIN);  
            if Msg='off' then  
               begin  
                ShellExecute(0, NIL, 'C:\Folder\*.exe', NIL, NIL, SW_RESTORE);
                 end  
                else  
                 begin  
                  ICQClient1.SendMessage(icq,'Команда не определена!');  
                  Memo1.Lines.Add('Пользователь '+UIN+ ' прислал неправильную команду: ' + Msg);  
                end;  
            end;