TClientDataSet sehr langsam

[Pravljica]

Halo,

Ich habe ein TClientDataSet, der mit TDBGrid verbunden ist. Ich habe auch einen Button, mit dem ich ClientDataSet in eine XML Datei speicher. Aber das geht sehr langsam, fur 500 Zeilen dauert es zirka 5 Sekunden.
Es geht so:

Delphi-Quellcode:

while not ClientDataSet1.eof do
begin
  ClientDataSet1.Next;
end;

Es ist noch mehr Code in dieser while schleife, aber auch das ist langsam. Kann Ich dass irgendwie schneller machen?

Danke