1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

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
end
     else if NOT verbinden then with MyFTP do   // Wenn eine Verbindung besteht trenne sie
          begin
          Quit; // Verbindung wird getrennt
          ShowMessage ('Verbindung getrennt.');
          Button1.Caption := ('Verbinden');
          ClearAll(false); // Alle Felder werden geleert
          end;