[CamiloU]

Queria comentarles que encontre en la red otro procedimiento y me funciono a la perfección. Anexo el código para la persona que lo necesite.

Otra cosa. Muchas gracias a las personas que me colaboraron, especialmente Neftaly, por el interes y la paciencia.

Código Delphi [-]
procedure TComPagoDetalleACD.IngresosDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  Grid : TStringGrid;
  Texto : String;
begin
  Grid := TStringGrid(Sender);
  Grid.Canvas.FillRect(Rect);
  Texto := Grid.Cells[ACol,ARow];
  if ACol = 0 then DrawText(Grid.Canvas.Handle, PChar(Texto), StrLen(PChar(Texto)), Rect, DT_CENTER);
  if ACol = 1 then DrawText(Grid.Canvas.Handle, PChar(Texto), StrLen(PChar(Texto)), Rect, DT_LEFT);
  if ACol = 2 then DrawText(Grid.Canvas.Handle, PChar(Texto), StrLen(PChar(Texto)), Rect, DT_RIGHT);
end;