Hallo HartiMcFly, versuche es einmal mit der Funktion "leftStr" so:
Delphi-Quellcode:
for i:=0 to Memo1.Lines.Count-1 do
begin
if leftstr(Memo1.Lines[i],2) = 'ID' then
Memo2.Lines.Add(Memo1.Lines[i]);
end;
Um die Funktion leftStr nutzen zu können, musst Du StrUtils bei uses einfügen.