einzelne Zeichen FETT/kursiv etc machen

[bomber901]

hi

ich sitz zurzeit für ein Schulprojekt an nem delphi programm was sich mit schrift formatierungen befasst.
Nun habe ich folgendes problem....

ich möchte das der Markierte Text eines Memo-feldes z.B.Fett ( nach BTN-click) wird.
dazu habe ich bisher folgenden quelltext:

procedure TForm1.Button1Click(Sender: TObject);
begin
AusgangsWort:=Memo1.text;
seltext1:=memo1.seltext;
memo1.Font.Style:= [fsBold];
a:=Pos(seltext1,memo1.Text);
Insert(seltext1,Ausgangswort,a);

dabei wird nun jedoch natürlich das komplette Wort Fett. Meine Frage ist also ob man einzelnen Wörtern auch die eigenschafft fett geben kann und diese dann in das ausgangswort einfach einbindet...

oder muss immer das komplette Memofeld entweder Fett oder eben nicht Fett sein ?

danke für hilfe im vorraus