StringGrid Aligning Title - Delphi in Delphi

//StringGrid Aligning Title - Delphi

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  LStrCell: string;
  LRect: TRect;
begin

  if ARoW = 0 then begin
    //pega o string da celula
    LStrCell := StringGrid1.Cells[ACol, ARow]; // grab cell text
    //muda cor e tamanho da fonte
    StringGrid1.Canvas.Font.Color:=clwhite;
    StringGrid1.Canvas.Font.Size:=12;
    //muda a cor da celula
    StringGrid1.Canvas.Brush.Color:=clblue;
    StringGrid1.Canvas.FillRect(Rect);
    LRect := Rect;
    //ajusta o topo
    LRect.Top := LRect.Top + 2;
    //ajusta Left
    LRect.Left := LRect.Left + 3;
    //ajusta Left
    LRect.Right := LRect.Right - 3;

      case aCol of
        // desenha o texto alinhado conforme desejado
        0:
        DrawText(StringGrid1.Canvas.Handle, PChar(LStrCell), Length(LStrCell), LRect, DT_LEFT);
        1:
        DrawText(StringGrid1.Canvas.Handle, PChar(LStrCell), Length(LStrCell), LRect, DT_CENTER);
        2:
        DrawText(StringGrid1.Canvas.Handle, PChar(LStrCell), Length(LStrCell), LRect, DT_RIGHT);
        3:
        DrawText(StringGrid1.Canvas.Handle, PChar(LStrCell), Length(LStrCell), LRect, DT_CENTER);
        4:
        DrawText(StringGrid1.Canvas.Handle, PChar(LStrCell), Length(LStrCell), LRect, DT_LEFT);
      end;


  end;

end;