unit Transfer;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ComCtrls;

type
  TTransferForm=class(TForm)
    InfoLabel: TLabel;
    TransferBar: TProgressBar;
    CancelBtn: TButton;
    procedure CancelBtnClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  TransferForm: TTransferForm;


{This file is generated by DeDe v2.30 (c) 1999 by DaFixer}

implementation

{$R *.DFM}


procedure TTransferForm.CancelBtnClick(Sender: TObject);
begin
{
004A99BC   55                     push    ebp
004A99BD   8BEC                   mov     ebp, esp
004A99BF   83C4F4                 add     esp, -$0C
004A99C2   33C9                   xor     ecx, ecx
004A99C4   894DF4                 mov     [ebp-$0C], ecx
004A99C7   8955F8                 mov     [ebp-$08], edx
004A99CA   8945FC                 mov     [ebp-$04], eax
004A99CD   33C0                   xor     eax, eax
004A99CF   55                     push    ebp
004A99D0   68319A4A00             push    $004A9A31

***** TRY
|
004A99D5   64FF30                 push    dword ptr fs:[eax]
004A99D8   648920                 mov     fs:[eax], esp
004A99DB   8D55F4                 lea     edx, [ebp-$0C]
004A99DE   8B45FC                 mov     eax, [ebp-$04]
004A99E1   8B80CC020000           mov     eax, [eax+$02CC]
004A99E7   E89C7FF8FF             call    00431988
004A99EC   8B45F4                 mov     eax, [ebp-$0C]

* Possible String Reference to: "Cancel"
|
004A99EF   BA449A4A00             mov     edx, $004A9A44
004A99F4   E813A6F5FF             call    0040400C
004A99F9   7510                   jnz     004A9A0B
004A99FB   8B45FC                 mov     eax, [ebp-$04]
004A99FE   8B80D4020000           mov     eax, [eax+$02D4]
004A9A04   E8D76FFEFF             call    004909E0
004A9A09   EB10                   jmp     004A9A1B
004A9A0B   8B45FC                 mov     eax, [ebp-$04]
004A9A0E   E83519FAFF             call    0044B348
004A9A13   8B45FC                 mov     eax, [ebp-$04]
004A9A16   E8C919FAFF             call    0044B3E4
004A9A1B   33C0                   xor     eax, eax
004A9A1D   5A                     pop     edx
004A9A1E   59                     pop     ecx
004A9A1F   59                     pop     ecx
004A9A20   648910                 mov     fs:[eax], edx

****** FINALLY
|
004A9A23   68389A4A00             push    $004A9A38
004A9A28   8D45F4                 lea     eax, [ebp-$0C]
004A9A2B   E850A2F5FF             call    00403C80
004A9A30   C3                     ret

004A9A31   E96A9CF5FF             jmp     004036A0
004A9A36   EBF0                   jmp     004A9A28

****** END
|
004A9A38   8BE5                   mov     esp, ebp
004A9A3A   5D                     pop     ebp
004A9A3B   C3                     ret


}
 end ; 

procedure TTransferForm.FormDestroy(Sender: TObject);
begin
{
004A944C   55                     push    ebp
004A944D   8BEC                   mov     ebp, esp
004A944F   83C4F8                 add     esp, -$08
004A9452   8955F8                 mov     [ebp-$08], edx
004A9455   8945FC                 mov     [ebp-$04], eax
004A9458   8B45FC                 mov     eax, [ebp-$04]
004A945B   8B80D0020000           mov     eax, [eax+$02D0]
004A9461   E8869BF5FF             call    00402FEC
004A9466   8B45FC                 mov     eax, [ebp-$04]
004A9469   8B80D4020000           mov     eax, [eax+$02D4]
004A946F   E8789BF5FF             call    00402FEC
004A9474   59                     pop     ecx
004A9475   59                     pop     ecx
004A9476   5D                     pop     ebp
004A9477   C3                     ret


}
 end ; 

end.
