String durchsuchen

[MondoShiva]

Delphi-Quellcode:

procedure TForm1.searchClick(Sender: TObject);
var
  i :integer;
begin
  i := 0;
  while (i < richedit.Lines.Count) do
  begin
    if richedit.Lines.Strings[i] = edit.Text then
    begin
      ShowMessage('Gefunden!!! Zeile: ' + IntToStr(i+1));
      richedit.Lines.Strings[i] := InputBox('Eingabe','Bitte geben Sie hier ihren text ein!','Text');
      Break;
    end;
    inc(i);
  end;

end;

end.

so siehts momentan aus aber mit der pos funktion komm ich nicht weiter