Breite von StringGrid dem Textinhalt anpassen macht Probleme

[Luckie]

Also das geht bei mir:

Delphi-Quellcode:

function ResizeStringGridColumns(const s: String; st: TStringGrid): Cardinal;
begin
  result := st.Canvas.TextWidth(s)+10;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
begin
  s := '16518451897645489784987984878974,65465465';
  StringGrid1.DefaultColWidth := ResizeStringGridColumns(s, StringGrid1);
  StringGrid1.Cells[1,1] := s;
end;