Высота строки в Memo

[Maxs]

Как узнать высоту строки в мемо и задать высоту в нем в этих строках?
Побовал вот так, но не получилось:
Memo.Height:=Memo.Font.Height*StrTo Int(Edit2.Text);
В Edit2 задается высота Memo в строках.
Высота 1 строки получается в половину строки. Пробовал умножать, прибавлять, но если строк несколько, то погрешность при умножении на их количество большая.

[Скандербег]

Такое впечатление сложилось по опыту, что Font.Height - это совсем не то, что объявлено в справке.
Самое корректное определение высоты строки получается через Canvas.
Т.к. TMemo не предоставляет свойство Canvas, то можно определить высоту строки через сторонний Canvas присвоением ему шрифта из нашего TMemo.
Другие способы дают не совсем то что надо.

procedure ????;
var Can : TCanvas;
begin
  Can := TCanvas.Create;
  Can.Handle := CreateCompatibleDC(GetDC(0));
  try
    Can.Font.Assign(Memo1.Font);
    Memo1.Height := Can.TextHeight('Wg')*StrToInt(Edit1.Text)+6; 
    //6 - добавляется размер обрамления вверху и внизу компонента TMemo; значение подбирается
  finally
    DeleteDC(Can.Handle);
    Can.Handle := 0;
    Can.Free;
  end;
end;

Вся эта архитектура прекрасно работает - бояться не надо. Можно оформить функцией, которая возвращает высоту одной строки в точках.

[095]

ойййёй ... а как же последняя строчка при нажатии enter?