Problem mit Programm (RichEdit)

[Pseudemys Nelsoni]

hoi,

also die prozedur ist:

Delphi-Quellcode:

procedure AddColoredLine(ARichEdit: TRichEdit; AText: string; AColor: TColor);
begin
  with ARichEdit do 
  begin 
    SelStart:=Length( Text);
    SelAttributes.Color:=AColor;
    SelAttributes.Size:=8;
    SelAttributes.Name:='MS Sans Serif';
    Lines.Add( AText);
  end;
end;

und eine farbige zeile hinzufügen tue ich mit:

Delphi-Quellcode:

    begin
      AddColoredLine(RichEdit1, '[' + Form1.TSC.Nick + '] ' + Edit1.Text, clFuchsia);
      Form1.TSC.Notice(ListBox1.Items[Listbox1.itemindex], '/ACTNOT/' + Edit1.Text);
    end

bei win2k/xp gehts super