[ecfisa]

Hola krewer.

Como bien te dice newtron, viendo el código vas a recibir respuestas mas concretas. Pero básicamente tenes que ajustar la propiedad Color de TFont.

Ejemplo:

Código Delphi [-]
...
const
  COLORS : array[0..2] of TColor = (clRed, clGreen, clBlue);
var
  prn : TPrinter;
  i   : Integer;
begin
  prn := TPrinter.Create;
  try
    prn.BeginDoc;
    for i := 0 to 2 do
    begin
      prn.Canvas.Font.Color := COLORS[i];
      prn.Canvas.TextOut(10, 10 + i * 150, Chr(Ord('A')+i));  // A, B, C
    end;
    prn.EndDoc;
  finally
    prn.Free;
  end;
end;

Saludos