TMemo.Lines:TStrings <- damit

Memo.Lines.count <- Anzahl der Zeilen im Memo
Code:
for i:=0 to Memo.Lines.cout-1 do
 if Memo.Lines.Strings[i]='was ich wissen will'
 then do_something_usefull;