[Delphi] - Richedit - colorowanie liter

Dzień dobry mam dziwny problem z RichEdit. Używam go do wyświetlania
textu tyle że to co pisze user jest na biało, to co jest odpowiedzią
z servera na zielono a komunikat z programu na szaro.

procedure TForm1.Wypisz(s: string; color: TColor);
begin
Memo.Lines.Add(s);
Memo.SelStart := Length(Memo.Text) - Length(s) - 2;
Memo.SelLength := Length(s);
Memo.SelAttributes.Color := color;
end;

i jak sobie przeprowadzam próby na LocalHost'cie to wszystko jest ok
a jak się połączę z jakimś serverm to się robią dziwne rzeczy.
Trudno mi to jest dokłądnie opisać, ale np.
odpowiedź nie jest zazieleniona od początku a potem zielone
wchodzi na normalny text, albo na stałe kolor liter zmienia się
na zielony lub szary, no nie wiem, w każdym razie może ktoś się z takimi
problemami spotkał ? Może coś źle w tej procedurze zrobione ?--__________________________________
Pozdrawiam...
piechnat

moze zrob tak:

procedure TForm1.Wypisz(S: String; Color: TColor);
begin
Memo.SelAttributes.Color := Color; *zmien kolor dla wypisywanego pozniej tekstu
Memo.Lines.Add(S);
Memo.SelAttributes.Color := clWhite; *ustaw jakis staly kolor ;)
end;---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

Wielkie dzięki LKS, działa idealnie {brawo} --__________________________________
Pozdrawiam...
piechnat