weitersuchen funktion wenn " nicht gefunden"

[willey]

Hallo...

ich habe eine normale Suchen funktion für eine listbox geschrieben... komme jetzt aber nicht weiter... wenn die suche kein ergebnis liefert soll eine eine weitersuchen funktion gestartet werden, sodass man seine suche mit anderen begriffen weiterführen kann...


procedure TForm1.SuchenClick(Sender: TObject);
var i: Integer;
Gefunden: Boolean;
Suchwort: string;

begin
Suchwort:=InputBox('Suchen nach einem Merkmal', 'Wonach soll gesucht werden?','');
if Suchwort<>''then
begin
Gefunden:=false;
i:=-1;
while (i<Listbox1.Items.Count-1) and not gefunden do
begin
Inc(i);
if Pos(Suchwort,ListBox1.Items[i])>0 then Gefunden:=True;
end;
if Gefunden
then ListBox1.ItemIndex:=i
else ShowMessage('Suchwort wurde nicht gefunden');
end;
end;