Alinhamento Vertical DBGRID para Delphi 5

[FauGomes]

Olá, pessoal, me chamo Fabio, Tudo bem? É o seguinte, não estou conseguindo alinhar VERTICAL do componente DBGRID do Delphi 5.

Coloquei programa do wConsultaDrawColumnCell, não alinha nada. Segue o programa abaixo:

procedure TTSIST9600.wConsultaDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
Var
   S: string;
   R: TRect;

begin

   If Column.Field = QRYCLIENTES.FieldByName('NUMERO')  Then
      begin
         with wConsulta.Canvas do
         begin
            FillRect(Rect);
            S := IntToStr(QRYCLIENTES.FieldByName('NUMERO').AsInteger); 
            R := Rect;
            DrawText(Handle, PChar(S), Length(S), R, DT_VCenter);
        end;
      End;
End;

 

Aguardo a resposta.

 

Obrigado

 

Editado Fevereiro 15, 2022 por FauGomes