mit indexof würde das ganze so aussehen
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
Var
A:Integer;
begin
For A := 0 To Memo2.Lines.Count-1 do
begin
if Memo1.Lines.IndexOf(Memo2.Lines[A]) > -1 then
Memo3.Lines.Add(Memo2.Lines[A]);
end;
"IndexOf" prüft also ob es den String in irgend einer Zeile gibt.