[chelox]

hola,
mi problema es que no logro comprenderlo y no puedo hacer que funcione, parece que es muy simple, pero bueno... espero de su ayuda.

esto está dentro de una unidad que la utilizo en un form.
cada vez que presiono un boton, se ejecuta en un thread para enviar una archivo.
Luego de que termina de enviar el archivo necesito saber que el archivo fue enviado.

Código Delphi [-]
 
type
  TonFinish = procedure(Sender: TObject) of object;
 EnviarFila = class(TThread)
  private
    FonFinish : TonFinish;
  protected
    procedure Execute(); override;
  public
    constructor Create(dire:String;file1:String);
    procedure pushfile(dire,file1:String);
  published
    property onFinish: TonFinish read FonFinish write FonFinish;
  end;
 
{la funcion que envia el archivo:}
 
procedure EnviarFila.pushfile();
begin
... envia el archivo....
 if Assigned(FonFinish) then FonFinish(Self);
End;

 
 
{Aca el problema, en la unidad unit1 del form1:
 
Esto es lo único que se me ocurrió, pero no pasa nada:
} 
type
  TEnviarFila = class(EnviarFila)
    procedure onFinish(Sender: TObject);
  end;
 
{el procedimiento:}
procedure TEnviarFila.onFinish(Sender: TObject);
begin
... termino ....
end;

Gracias