encabezado en un grid

[wil_ramone]

Buenos días

como puedo poner el encabezado en forma horizontal en un grid?

es decir que no aparezca a si: ZONA

necesito que aparezca a si:
Z
O
N
A

espero me puedan ayudar gracias......

[Casimiro Notevi]

Primero vas a tener que aprender qué es horizontal y vertical

[wil_ramone]

en forma vertical me confundí una disculpa

[Casimiro Notevi]

Prueba con: 'H'#13'O'#13'L'#13'A'

[wil_ramone]

esa fue mi primera opción y no funciono solo me agrego z|ona

[Casimiro Notevi]

¿Qué componente grid es?

[wil_ramone]

es un stringGrid

este es el código que uso para los títulos

_verRporte.stgReportes.Cells[0,0]:='ZONA';
_verRporte.stgReportes.Cells[1,0]:='SUP. ZONA';
_verRporte.stgReportes.Cells[2,0]:='No.';
_verRporte.stgReportes.Cells[3,0]:='SITIO';
_verRporte.stgReportes.Cells[4,0]:='SUCURSAL';
_verRporte.stgReportes.Cells[5,0]:='FECHA DE REGISTRO';

es el que necesito que cambie de orientación

y este es el que utilizo para darle color desde el evento OnDrawCell

if (ARow=0) and (ACol<=5) then begin
Canvas.Brush.Color := clBlack;
canvas.Font.Style:=[FsBold];
canvas.Font.Color:=clWhite;
Canvas.TextRect(Rect, Rect.Left + 3, Rect.Top + 2, cells[Acol, Arow]);
Canvas.FrameRect(Rect);
end;