Delphiで文字列を表示するための高さ、幅を取得する

Canvasに文字列を表示するとき、Gridなどの高さや幅を指定したいときにつかえる関数。

文字列は全てCanvasから高さを得ています。

var
  w, h: Integer;
begin
  w := ListView1.Canvas.TextWidth(‘あ’);
  h := ListView1.Canvas.TexHeight(‘あ’);
end;

‘あ’の部分には取得したい文字列を入れます。上記のまま実行すると、「あ」一文字分しか取得できません。