[Reba]

If pos(posi,Memo1.Text)<>0 Then//если искомое слово присутствует в строке, то...

begin
memo2.Lines.Add(s);
memo2.Lines.Text:= StringReplace(memo2.Lines.Text,'#id ','',[]);
id:= memo2.Text;
memo1.Clear;
memo2.Clear;
if pos(id,memo3.Text)<>0 then
begin
memo4.Lines.Add('Даные верные Клиент Проводит операции');