Indy FTP Get Probleme

[hedie]

Der Code Sieht nun so aus

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var
  SaveFilename: string;
begin
  SaveFilename := extractfilepath(Application.Exename) + ExtractFileName(ListBox1.Items[ListBox1.ItemIndex] );
  if FileExists(SaveFilename) then
    DeleteFile(SaveFilename);
  FTP.Get(ListBox1.Items[ListBox1.ItemIndex], SaveFilename);
memo2.Lines.LoadFromFile(edit1.Text + ('.vfl'));
end;

aber diese meldung kommt immer noch