Zeige Zeile in der "Datum" steht.

[Treffnix]

da fehlt ein ">0"

So müsste es gehen:

Delphi-Quellcode:

for i := 1 to Memo1.Lines.Count do
  if Pos('Datum', Memo1.Lines[i-1]) >0 then
  begin
    ShowMessage(Memo1.Lines[i-1]);
    exit;
  end;