Ich mache nichts mit Daten, aber da sind ein paar Stellen, wo dir die Kopie von der website mit dem code fehlgeschlagen ist, aufgrund der schlunzigen Formatierung da:
An einigen Stellen ist dir code in den Kommentar gerutscht.
Die letzten beiden Zeilen sollten wahrscheinlich sein
Delphi-Quellcode:
if AColumn.Width <= 0 then
AColumn.Width := AColumn.Field.Tag;
denn in dem .Tag sollte doch die Minimalweite stehen.
Hab' ich nicht getestet, denn wie gesagt ...