[NumLock]

ну не зашкаливает же:

Код:

procedure TRichEditThread.AddText(Text: String; Color: TColor = clBlack; Style: TFontStyles = []);
begin
  FRichEdit.SelAttributes.Color:=Color;
  FRichEdit.SelAttributes.Style:=Style;
  FRichEdit.SelText:=Text;
end;

procedure TRichEditThread.AddToRichEdit;
begin
  AddText(' TRichEditThread = '+IntToStr(FNum)+' ', FColor, []);
  AddText('procedure ', clBlue, [fsBold]);
  AddText('TRichEditThread.AddToRichEdit ', clLime, []);
  AddText('begin'#13#10, clBlack);
  AddText('end');
end;

http://www.delphisources.ru/forum/sh...ad.php?t=18236
http://www.delphisources.ru/forum/sh...ad.php?t=18196