delphi - Delphi TMemo で 1 行あたりの最大文字数を計算する

Question

私はTMemoを持っています。

wordwrap の行を使わずに TMemo の各行にテキストを入れたいと思います。TMemoがその行にワードラップを作成せずに、1行に何文字入れることができるかを計算する必要があります。

擬似コード:

function calculate_max_chars_per_line_in_Memo():Integer;
var w,l:integer;
begin
   w:=getwidth from tmemo;
   l:=lenght of a font char;
   Result:=trunc(w/l);
end;

私はそれを行うことができますか？