Programm zum durchsuchen von texten

[schneeflöckchen]

Ich habe ein kleines Problem...
und zwar will ich ein Programm Programieren in welchem ich in edit1 eine Text eingebe und in edit2 mein suchwort. Ich bin schon so weit das man mir die Position des suchwortes ausgibt aber nun will ich dises gesuchte wort rot anzeigen und das ist der punkt an dem ich nicht weiter komm .

Mein Programm bis jetzt :

Delphi-Quellcode:

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.

[edit=Matze][delphi]-Tags eingefügt. Zukünftig bitte selbst daran denken. MfG Matze[/edit]