Верхний отступ текста

[The_Immortal]

Пытаюсь определить, так скажем, Top Margin (верхний отступ) при отрисовке текста. Нижний определяется без проблем, хотелось бы понять как определить верхний.

Иллюстрация того, что хочется (указано оранжевым цветом).

procedure TForm2.Button1Click(Sender: TObject);
var
  StrWidth, StrHeight: Integer;
  TextMetric: TTextMetric;
  TextRect: TRect;
  Str: string;
  TextSize: TSize;
begin
  if FontDialog1.Execute then
  begin
    Str := 'Test';

    Image1.Canvas.Brush.Color := clWhite;
    Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
    Image1.Canvas.Font.Assign(FontDialog1.Font);

    StrWidth := Image1.Canvas.TextWidth(Str);
    StrHeight := Image1.Canvas.TextHeight(Str);
    TextRect := Rect(10, 10, StrWidth, StrHeight);

    Image1.Canvas.Brush.Color := clSkyBlue;
    Image1.Canvas.FillRect(TextRect);
    Image1.Canvas.TextOut(TextRect.Left, TextRect.Top, Str);

    GetTextMetrics(Image1.Canvas.Handle, TextMetric);
    tmHeight.Value := TextMetric.tmHeight;
    tmAscent.Value := TextMetric.tmAscent;
    tmDescent.Value := TextMetric.tmDescent;
    tmInternalLeading.Value := TextMetric.tmInternalLeading;
  end;
end;

Спасибо!


UPD: считал вручную попиксельно сверху через параллельный Bitmap.