Hola krewer.
No se a que partes de la salida de tu código deseas agregarle colores, pero supongamos que deseas poner en color rojo la siguiente línea:
Código Delphi
[-]Printer.Canvas.TextOut(20,Linha,'Horario');
Basta con que hagas:
Código Delphi
[-]
Printer.Canvas.Font.Color := clRed;
Printer.Canvas.TextOut(20, Linha, 'Horario');
Otro ejemplo, si deseas la letra 'H' en color rojo y el resto ('orario') en color azul, harías:
Código Delphi
[-]
Printer.Canvas.Font.Color:= clRed;
Printer.Canvas.TextOut(20, Linha, 'H');
Printer.Canvas.Font.Color := clBlue;
Printer.Canvas.TextOut(20 + Printer.Canvas.TextWidth('H'), Linha, 'orario');
Saludos