Memo durchsuchen - Zeile in anderes Memo

[Balu der Bär]

Ungefähr so, hab grad keine Lust das zu testen:

Delphi-Quellcode:

for i := 0 to Memo1.Lines.Count-1 do
begin
 if Pos(Memo1.Lines[i], 'suchbegriff') <> 0 then Label1.Caption := Copy(.....
end;