1、取得可文件路径
Path := ExtractFilePath(Application.ExeName); //取得可执行文件路径 TXMLDocument.Create(ExtractFilePath(Application.ExeName)+ ‘001.xml‘）
2、DisableControls EnableControls
ClientDataSet.DisableControls;
...
for I := 0 to 10000 do
begin
ClientDataSet.Append;
...
ClientDataSet.Post;
end;...
ClientDataSet.EnableControls
原文：http://www.cnblogs.com/chenmfly/p/4541349.html