Delphi-PRAXiS - Delphi TStringGrid, 2000 Rows, langsames Insert

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi TStringGrid, 2000 Rows, langsames Insert (https://www.delphipraxis.net/142821-tstringgrid-2000-rows-langsames-insert.html)

TStringGrid, 2000 Rows, langsames Insert

Hallo,

ich trage in ein TStringGrid 2000 Rows ein,
es sind 6 Spalten, pro Zeile viell. 50 Zeichen Text (auf die 6 Spalten aufgeteilt).

Problem.
Er braucht 7 Sekunden ...

SendMessage(Grid.Handle, WM_SETREDRAW, 0, 0); hat nichts gebracht ;(

OnDrawCell (ich formatiere dort noch links/rechts) ausgeklammert -> nix.

Was kann ich noch tun ?

DrawGrid nehmen ?, puh
Es muss sein Grid sein (Nutzer sind es so gewohnt, VST geht also nicht)

#Update#
Hat sich erledigt.
Eine Routine, die während des Füllens aufgerufen wurde,
hat das alles ausgebremst.

Heiko