Zeilennummer einer Zeichenkette heausfinden?

[capo]

ist das richtig so?
irgendwie zeig es nix an.

Delphi-Quellcode:

function FindFirst(memo: TAdvMemo; search: String): Boolean;
var
  iStart: Integer;
begin
  search := AnsiLowercase(search);
  with memo do
  begin
    iStart := Pos(search, AnsiLowercase(Form1.Edit1.Text));
    Result := iStart > 0;
    if Result then
    begin
      SelStart := Pred(iStart);
      SelLength := Length(search);
    end;
  end;
end;

Delphi-Quellcode:

procedure TForm2.Button4Click(Sender: TObject);
begin
FindFirst(Advmemo1,Form1.edit1.text);
end;

gruss, capo