Tal y como comenta Agustín, si deseas usar un Label con un método nuevo, deberás crear un nuevo componente y añadir las características que necesites.
Segúramenet sobrescribiendo el método paint:
Código Delphi
[-]
procedure Paint; override;
La otra opción, para no "reinventar la rueda" es usar un TRickEdit, que ya posee todo lo necesarios para colorear el texto que hay en su interior.
Código Delphi
[-]
reTexto.lines.Clear;
reTexto.SelAttributes.Color := clBlack;
reTexto.lines.Add('camión');
reTexto.SelStart := 4;
reTexto.SelLength := 1;
reTexto.SelAttributes.Color := clRed;
