Вывод текста разными цветами?

[trixx_26_90]

Подскажите, пожплуйста, как сделать, чтобы в чате сообщения разных пользователей выводились разными цветами?

Программа написана в Delphi.

[Stilet]

А какой контрол для вывода там применяешь?

[trixx_26_90]

Код:

procedure TForm1.ClientSocketRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
// получим текст, код комманды, длину строки
text:=Socket.ReceiveText();
com:=StrToInt(Copy(text,1,1));
len:=Length(text)-1;
// определение комманд
Case com of
// добавим в ChatMemo сообщение с сервера
0: ChatMemo.Lines.Add(Copy(text,2,len) );
// отошлем свой ник на сервер
1: ClientSocket.Socket.SendText('1'+Ni kEdit.Text);
// примем строку списка пользователей
2: Begin
// очищаем список клиентов
UserListView.Items.Clear;
// добавим ключ конца строки (т.к. вырезка символов с задержкой)
text:=text+Chr(152);
// укажем начальный символ
pos:=2;
// обнулим счетчик символов
x:=0;
// пробегаем по длине строки списка
For j:=2 to len+1 do
Begin
// записываем в счетчик сдвиг
x:=x+1;
// если найден ключ (отделение ников в строке)
If Copy(text,j,1)=Chr(152) then
Begin
// добавим в UserListView строку
UItems:=UserListView.Items.Add;
UItems.Caption:=Copy(text,pos,x-1);
// укажем соответствующую иконку пользователя
If pos>2 then UItems.ImageIndex:=0 else UItems.ImageIndex:=1;
// изменим текущую позицию в строке списка
pos:=j+1;
// обнулим счетчик символов
x:=0;
end;
end;
end;
end;
end;