archivos rotos al subir ftp

[pborges36]

hola a todos, necesito una ayuda: estoy programando en D6, necesito subir archivos a un ftp. Lo hago con el componente TNMFTP. el codigo es mas o menos asi:

Código Delphi [-]
function Tdbftp.conectarftp: boolean;
var
  res:boolean;
begin
res:=false;
ftp.Host:=ftp_host.Text;
 ftp.UserID:=ftp_userId.Text;
 ftp.Password:=ftp_pass.Text;
 try
ftp.Connect;
 res:=true;
except
res:=false;
end;
result:=res;
end;
 
 
procedure Tdbftp.Button1Click(Sender: TObject);
begin
if conectarftp then
begin
operacion.Caption:='Enviando archivo';
if archivo<>'' then
begin
ftp.Upload(local.Text,remote.text);
 FTP.Disconnect;
 end
else
MessageDlg('Seleccione un archivo para enviar.', mtError, [mbOK], 0);
 
end
else
MessageDlg('No se pudo conectar con el servidor', mtError, [mbOK], 0);
end;

la cuestion es que me sube los archivos, pero estan rotos. Probe con varios tipos de archivo: zip,rar,exe,doc. todos rotos. Estare haciendo algo mal?