FTP über Proxy (Fehler bei Connect > GetResponse)

[KringKing]

Delphi-Quellcode:

if verbinden then with MyFTP do   // Wenn keine Verbindung besteht dann Verbinde
        begin
        // Eingabe der FTP Daten
        Username := Edit2.Text;
        Password := Edit3.Text;
        Host := Edit1.Text;
        ProxySettings.ProxyType := fpcmOpen;
        ProxySettings.UserName := '';
        ProxySettings.Password := '';
        ProxySettings.Host := '85.214.148.109';
        ProxySettings.Port := 3128;
             try
                Connect;   // Verbindung herstellen
                ShowMessage ('Verbindung hergestellt.');
                Button1.Caption := 'Trennen';
                ClearAll(true);  // Passwortfeld leeren
                globalpath := '/';
                ActList;
             except
                ShowMessage ('Verbindung fehlgeschlagen.');
             end;
        end

Mein Programm macht absolut garnichts und gibt auch keine Fehlermeldung aus.