Runtime da oluşturulan table açılış hatası

[Berdem]

Merhaba Arkadaşlar,
Runtime table oluşuyor fakat oluşan table açmaya çalıştığımda yani xml dosyasını yüklemeye çalıştığımda hatayı veriyor.Hata F9 yaptıktan sonra oluşuyor.'Variant or safe array is loched' hatası veriyor.Exeyi kapatınca ise runtime error 216 at 510036c6 hatası veriyor...

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
const
  DataFile = 'sorumlu.xml';
begin
  if FileExists('sorumlu.xml') = false then
  begin
    ClientDataSet2.FileName :=
      ExtractFilePath(Application.ExeName) + DataFile;
    if FileExists(ClientDataSet2.FileName) then
      ClientDataSet2.Open
    else
    begin
      with ClientDataSet2.FieldDefs do
      begin
        Clear;
        with AddFieldDef do
        begin
          Name := 'Sira';
          DataType := ftInteger;
        end;
        with AddFieldDef do
        begin
          Name := 'Unvani';
          DataType := ftString;
          Size := 20;
        end;
        with AddFieldDef do
        begin
          Name := 'Adi';
          DataType := ftString;
          Size := 25;
        end; 
        with AddFieldDef do
        begin
          Name := 'Soyadi';
          DataType := ftString;
          Size := 25;
        end;
        with AddFieldDef do
        begin
          Name := 'Sicilno';
          DataType := ftString;
          Size := 25;
        end; 
      end; 
      ClientDataSet2.CreateDataSet;
    end; 
  end
  else
  begin
    ClientDataSet2.LoadFromFile('sorumlu.xml');
    ClientDataSet2.Open;
  end;
end;

[hbahadir]

CreateDataset dedikten sonra savetofile ile dosyayı saklaman gerekli.

[Berdem]

ne diyeyim sen müthişsin......