suchen in texten wenn es öfters das gleiche wort gibt

[schneeflöckchen]

Ja bis jetzt kann ich nur das erste 'e' im text anzeigen und ich will dann nochmal auf suchen klicken und dann soll das nächste'e' im Text anegzeigt werden



Mein Programm bis jetzt :


procedure TForm1.Button1Click(Sender: TObject);
var MaxLenght, position: integer;eingabewort, suchwort, ausgabemitmarkierung:string;
begin


eingabewort := edit1.text; // =ganzer text!
suchwort:= edit2.text;
Position := Pos(suchwort, eingabewort);
insert('-->',eingabewort, Position);
AutoSize := true;
MaxLenght := 0;


// vergleicht string(s) mit string(edit2.)
if Position <> 0 then
begin
ShowMessage('gefunden an Position: ' + IntToStr(Position)) ;
showmessage(eingabewort);
edit1.font.Color:=clred;



end
else
ShowMessage('nicht im string vorhanden');


end;
end.