Colwidth automatisch anpassen

[Meister Röhrich]

Habe ein StringGrid in dem verschiedene Daten angezeigt werden.
Habe mir eine Funktion gebaut, die die Spaltenbreite automatisch dem
längsten Text jeder Spalte im Grid anpasst.
Habe dazu Text.Length()*StringGrid->Font->Size genommen.
Dies kommt natürlich nicht genau hin, da das ja nicht der Breite jedes Zeichens entspricht.
Wie kann ich die Breite genauer ausrechnen ?

[Jansen]

Siehe TCanvas::TextExtent bzw. ::TextWidth.