Komplizierte suche in Memo ! Hilfe

[HenKst]

huch
da fehlen die ) bei den pos

Kommt davon wenn man blind kopiert^^

Delphi-Quellcode:

for i:= 0 to memo1.lines.count-1 do begin
  if pos(edit1.text, memo1.lines[i]) <> 0 then begin
    if pos(edit2.text, memo1.lines[i]) <> 0 then begin
      find = false;
    end else begin
      find = true;
    end;
   end else begin
     find:= false;
  end;
end;

so müsste es aussehn