idFTP - anderer Port als 21

[DRPEnc]

Delphi-Quellcode:

procedure TMainForm.ConnectButtonClick(Sender: TObject);
var idftp:Tidftp;
begin
  idftp:=TIdftp.Create(Self);
  idftp.Username:= UserIDEdit.Text;
  idftp.Password:= PasswordEdit.Text;
  idftp.Port:=StrToInt(PortEdit.text);
  idftp.Host:= FtpServerEdit.Text;
//begin
  ConnectButton.Enabled := false;
  if IdFTP1.Connected then try
    if TransferrignData then IdFTP1.Abort;
    IdFTP1.Quit;
  finally
    CurrentDirEdit.Text := '/';
    DirectoryListBox.Items.Clear;
    SetFunctionButtons(false);
    ConnectButton.Caption := 'Connect';
    ConnectButton.Enabled := true;
    ConnectButton.Default := true;
  end
  else with IdFTP1 do try
    Username := UserIDEdit.Text;
    Password := PasswordEdit.Text;
    Host := FtpServerEdit.Text;
    //Port := PortEdit.text;
    Connect;
    Self.ChageDir(CurrentDirEdit.Text);
    SetFunctionButtons(true);
    SaveFTPHostInfo(FtpServerEdit.Text, 'FTPHOST');
  finally
    ConnectButton.Enabled := true;
    if Connected then begin
      ConnectButton.Caption := 'Disconnect';
      ConnectButton.Default := false;
    end;
  end;
end;

könnte das gehen?