[rob1]

Mira uso las mismas direcciones obviamente te paso los codigos

Código Delphi [-]
   {...}
   begin
     labelededit1.Text:=ftp.Username;
     labelededit2.text:=ftp.Password;
     labelededit3.Text:=ftp.Host;
     if checkbox1.Checked then
     try
       ftp.Port:=strtoint(labelededit4.text)
     except
       on econverterror do
       begin
         messagedlg('El número de puerto no es un número', mterror,[mbok],0);
       abort;
     end;
   end;
   FTP.Connect;
   {...}

y el ejemplo es el de indy q fabrica indy no el otro software q no me acuerdo el nombre