Conocer existencia de un caracter

[chingolo]

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;