Function slogan(BR:string):string;
var
tx:TstringList;//Твой файл откуда берутся слова
i,k:integer;
DR:string;
begin
  tx:=TstringList.Create;
  tx.LoadFromFile('res.txt');//ИМЯ/ПУТЬ файла
  For i:=0 to tx.Count-1 Do
    Begin
        k:=pos(BR,tx[i]);
        If k>0 then
          Begin
            DR:=Copy(tx[i],k+Length(BR)+1,Length(tx[i])-Length(BR)+1);
          End;
    End;
  Result:=DR;
end;

if Msg=sms
then
begin
ICQClient.SendMessage(UIN,slogan(sms));
end;