Komplizierte suche in Memo ! Hilfe

[Nitron]

Delphi-Quellcode:

for i:= 0 to memo1.lines.count do begin
  if pos(suchtext1, memo1.lines[i] <> 0 then begin
    if pos(suchtext2, memo1.lines[i] <> 0 then begin
      find = false;
    end else begin
      find = true;
    end;
   end else begin
     find:= false;
  end;
end;

bei such text kommt z.b edit1 rein oder ?

und die var i soll strin sein oder?