Unidad con objetos

Muchas gracias por tu ayuda, me ha servido de mucho, ya lo tengo funcionando, mi problema era el no reconstruit la clase. Pego el código por si alguien lo necesita. De nuevo, muchas gracias Manuel.
unit UFtp;
interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdFTP, IdFTPCommon, {ileCtrl,}ExtCtrls, ComCtrls;
type TFTP = class
IdFTP1: TIdFTP;
private
g_BytesEnviados : Integer;
procedure IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
public
constructor create;
end;
var
MiFTP: TFTP;
procedure Conectar(p_Host:String;p_Username:String;p_Password:String;p_Aviso:Integer;out p_Error:Integer);
procedure Desconectar(p_Aviso:Integer; out p_Error:Integer);
procedure Enviar(p_Origen:String;p_Destino:String;p_Aviso:Integer;out p_Error:Integer);
procedure Recibir(p_Origen:String;p_Destino:String;p_Aviso:Integer;out p_Error:Integer);
implementation
constructor TFTP.create;
begin
IdFTP1 := TIdFTP.Create(IdFTP1);
IdFTP1.OnWork := IdFTP1Work;
end;
{*******************************************************************************
U N I D A D FTP
*******************************************************************************}
(* TABLA DE ERRORES - p_Error = 0 : Todo OK
p_Error = 1 : Error genérico
p_Error = 2 : Error al no encontrar el fichero
p_Error = 3 : Error al intentar hacer acciones sin conexión
*)
//------------------------------------------------------------------------------
// C O N E C T A R
//------------------------------------------------------------------------------
procedure Conectar(p_Host:String;p_Username:String;p_Password:String;p_Aviso:Integer;out p_Error:Integer);
begin
try
MiFTP := nil;
MiFTP := TFTP.create;
p_Error := 0; //0 - Indica que NO hay error
MiFTP.IdFTP1.Host := p_Host; //'111.1.2.22';
MiFTP.IdFTP1.Username := p_Username; //'usuario';
MiFTP.IdFTP1.Password := p_Password; //'password';
MiFTP.IdFTP1.Connect;
if MiFTP.IdFTP1.Connected then
begin
if p_Aviso = 1 then MessageDLG('Conectado.',mtInformation,[mbOk],0);
end
else
begin
p_Error := 1; //Error en la conexión.
end;
except
on e:exception do
begin
p_Error := 0; //No mandamos el error pq ya lo indicamos aquí
MessageDLG(e.Message,mtWarning,[mbOk],0);
end;
end;
end;
//------------------------------------------------------------------------------
// D E S C O N E C T A R
//------------------------------------------------------------------------------
procedure Desconectar(p_Aviso:Integer; out p_Error:Integer);
begin
try
p_Error := 0; //Indica que NO hay error
MiFTP.IdFTP1.Quit;
MiFTP.IdFTP1.Disconnect;
except
on e:exception do
begin
if p_Aviso = 1 then MessageDLG(e.Message,mtWarning,[mbOk],0);
p_Error := 1; //Indica que hay error
end;
end;
end;
//------------------------------------------------------------------------------
// E N V I A R
//------------------------------------------------------------------------------
procedure Enviar(p_Origen:String;p_Destino:String;p_Aviso:Integer;out p_Error:Integer);
//p_Origen : Path y fichero
//p_Destino : Path y fichero
var Tam, FHandle : integer;
begin
if FileExists(p_Origen) then
begin
p_Error := 0;
//Tratamiento del fichero
FHandle := FileOpen(p_Origen, 0);
Tam := Getfilesize(FHandle,nil); //Cogemos el Tamaño para indicar la barra de progreso
FileClose(FHandle);
if MiFTP.IdFTP1.Connected then
begin
MiFTP.IdFTP1.TransferType := ftBinary;
MiFTP.IdFTP1.BeginWork(wmWrite);
try
MiFTP.IdFTP1.Put(p_Origen,p_Destino);
MiFTP.IdFTP1.EndWork(wmWrite);
finally
if MiFTP.g_BytesEnviados < Tam then
begin
p_Error := 1;
end
else
begin
if p_Aviso = 1 then MessageDLG('Transferencia completada.',mtWarning,[mbOk],0);
end;
end;
end
else
begin
p_Error := 3; //No puede realizar esta acción, no está conectado.
end;
end
else
begin
p_Error := 2; //El fichero no se ha encontrado.
end;
end;
//------------------------------------------------------------------------------
// R E C I B I R
//------------------------------------------------------------------------------
procedure Recibir(p_Origen:String;p_Destino:String;p_Aviso:Integer;out p_Error:Integer);
var Tam, FHandle : integer;
begin
if MiFTP.IdFTP1.Connected then
begin
MiFTP.IdFTP1.TransferType := ftBinary;
Tam := MiFTP.IdFTP1.Size(p_Origen);
MiFTP.IdFTP1.BeginWork(wmRead);
try
MiFTP.IdFTP1.Get(p_Origen,p_Destino,true);
MiFTP.IdFTP1.EndWork(wmRead);
finally
FHandle := FileOpen(p_Destino, 0);
MiFTP.g_BytesEnviados := Getfilesize(FHandle,nil);
FileClose(FHandle);
if MiFTP.g_BytesEnviados < Tam then
begin
p_Error := 1; //Error en la transferencia.
end
else
begin
if p_Aviso = 1 then MessageDLG('Transferencia completada.',mtWarning,[mbOk],0);
end;
end;
end;
end;
//------------------------------------------------------------------------------
// EVENTO IDFTP - W O R K
//------------------------------------------------------------------------------
procedure TFtp.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer);
begin
g_BytesEnviados := AWorkCount;
end;
end.