استخدام Align للخلايا في Stringgrid

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var s: string;
	drawrect :trect;
begin
  s:= (sender as tstringgrid).Cells[ acol, arow ];
  if length(s) > 0 then
  begin
	drawrect := rect;
	drawtext((sender as tstringgrid).canvas.handle,pchar(s), length(s), drawrect,dt_wordbreak or DT_CENTER or dt_noprefix );
	if (drawrect.bottom - drawrect.top) >(sender as tstringgrid).rowheights[arow] then
	begin
	  (sender as tstringgrid).rowheights[arow] := (drawrect.bottom - drawrect.top)
	end
	else
	begin
	  drawrect.Right := rect.Right;
	  (sender as tstringgrid).canvas.fillrect( drawrect );
	  drawtext((sender as tstringgrid).canvas.handle,pchar(s), length(s), drawrect,dt_wordbreak or DT_CENTER or dt_noprefix);
	end;
  end;
end;