Автоподгон высоты строк, выравнивание текста в ячейке

[artemavd]

Добрый день!
Я сделал отображение картинок из блоб поля в dbgrideh.
Собственно, это меня очень устраивает, но есть пара моментов. Вот код мой:

procedure TForm_Main.StudentsDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer;
  Column: TColumnEh; State: TGridDrawState);
var
  stream: TStream;
  img: TBitmap;
  t,r:integer;
begin
 if Column.FieldName='PS' then
 with Form_Main.Students.Canvas, Form_Main.pFIBDataSet1 Do
 begin
  img:= TBitmap.Create;
  stream:=
      Form_Main.pFIBDataSet1.CreateBlobStream(Form_Main.Students.DataSource.DataSet.FieldByName('PS'),bmRead);

  t:=TDBGridEh(Sender).Canvas.TextWidth(Column.Field.DisplayText);//длина отображаемого значе ния
  r:=Rect.Right - Rect.Left;//длина прямоугольника
  TDBGridEh(Sender).Canvas.TextOut(Rect.Left+round((r-t)*0.5), Rect.Top+2,Column.Field.Text);

//тут нужен код для того, чтобы высота строки в гриде подгонялась под высоту картинки, все больше ничего.
//  Form_Main.Students.RowHeight:=img.Height;
  try
   img.LoadFromStream(stream);
   StretchDraw(Rect, img);
  finally
   stream.Free;
   img.Free;
  end;
 end;
end;

Собственно, момента и вопроса 2:
1. Как написать, чтобы высота строки в гриде автоматически равнялась высоте картинке в поле?
и
2. Как отцентровать текст в ячейках по центру? Если я явно выставляю выравнивание по центру, то текст выравнивается, но вверху ячейки, а мне надо, чтобы по центру, как в Excel.
Прошу помощи...