Ini-Datei mit Ftp holen und dann verarbeiten

[kuba]

Hallo,

ich möchte mit meinem Programm eine ini-Datei per FTP holen und dann weiterverarbeiten, also die Werte in meinem Programm in einem neuen Fenster anzeigen und ändern. Die Datei ist jedoch nach der Übertragung gesperrt, wenn ich das Programm nach der FTP-Übertragung neu starte funktioniert es.

Wo liegt das Problem, wie kann ich die Ini-Datei in meinem Programm weiterverarbeiten ?

Auszug aus dem Code:

Delphi-Quellcode:

procedure TForm14.Button6Click(Sender: TObject);
begin
   Deletefile(meine.ini);
   ListBox1.Clear;
   ListBox1.AddItem('Please wait ...',nil);
   idftp1.Username := Edit1.Text;
   idftp1.Password := Edit2.Text;
   idftp1.Host := Edit4.Text;
   idftp1.Port := StrToInt(Edit3.Text);
   idFtp1.Passive := True;
   try
        idFtp1.Connect;
        idFtp1.Get(meine.ini,ExtractFileName(meine.ini));
        ListBox1.AddItem('Transfer OK !!!',nil);
        idFtp1.Quit;
    except
        ListBox1.Clear;
        ListBox1.AddItem('Error downloading from Remote Server !!!',nil);
    end;
    idFtp1.Disconnect;
    //idFtp1.Free;
end;

procedure TForm22.FormCreate(Sender: TObject);
var
    Value   :string;
    Ini     :TIniFile;
begin
      ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'meine.ini');
      try
      Value := Ini.ReadString('IExplorer','ProxyEnable', Value);
      if Value = '1' then SetCheckedState(CheckBox1, NOT CheckBox1.Checked);  
      Value := Ini.ReadString('IExplorer','ProxyServer', Value);
      LabeledEdit1.Text := Value;
      Value := Ini.ReadString('IExplorer','Start Page', Value);
      LabeledEdit2.Text := Value;
      Value := Ini.ReadString('IExplorer','ProxyOverride', Value);
      LabeledEdit3.Text:=Value;
      finally
        Ini.Free;
      end;
end;

Wer kennt sich aus ? Was läuft falsch ??

KUBA