Am besten geht es mit einem RichEdit:
Delphi-Quellcode:
case Benutzer of
0: RichEdit1.SelAttributes.Color := clBlack;
1: RichEdit1.SelAttributes.Color := clBlue;
2: RichEdit1.SelAttributes.Color := clRed;
3: RichEdit1.SelAttributes.Color := clGreen;
end;
RichEdit1.Lines.Add(ErhaltenerText);
Von mir aus gesehen sehr einfach