Fijate esto, debes usar un Rich edit:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
sCad1,scad2:String;
nTab:Integer;
begin
nTab := 10;
sCad1 := 'Código: ';
scad2 := 'Descripción: ';
with Re1 do
begin
clear;
SelAttributes.Color := clBlue;
Lines[0] := sCad1 + StringOfChar(' ',nTab) + sCad2;
SelStart := Length(sCad1);
SelLength := nTab + Length(sCad2);
SelAttributes.Color := clRed;
SelStart := nTab + Length(sCad1+scad2);
SelAttributes.Color := clBlack;
Lines.Add('Otras líneas...');
end;
end;