найти в мемо

[Roman_0]

var i : integer;
  TS : TStringList;
begin
  TS := TStringList.Create;
  TS.Text := Memo1.Text;
  for i:=TS.Count-1 downto 0
    do if Pos('ВашеСлово',TS.Strings[i])>0
       then begin
          TS.Delete(i);
          Memo2.Lines.Delete(i); // Так хочешь?
        end;
  Memo1.Text := TS.Text;
  FreeAndNil(TS);
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.