unit U_JYOrderYSNew;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics,
  cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxCalendar,
  cxTextEdit, ADODB, DBClient, ComCtrls, ToolWin, cxGridLevel,
  cxGridCustomTableView, cxGridTableView, cxGridBandedTableView,
  cxGridDBBandedTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
  ExtCtrls
type
  TFrmJYOrderYS=class(TForm)
    Panel1: TPanel;
    Label2: TLabel;
    KHName: TEdit;
    Label3: TLabel;
    JFJGMoney: TEdit;
    Panel2: TPanel;
    cxGrid1: TcxGrid;
    cxGridLevel1: TcxGridLevel;
    TV1: TcxGridDBBandedTableView;
    ToolBar1: TToolBar;
    TBClose: TToolButton;
    V1CRTime: TcxGridDBBandedColumn;
    V1SPName: TcxGridDBBandedColumn;
    V1TTQty: TcxGridDBBandedColumn;
    V1Price: TcxGridDBBandedColumn;
    V1PBMoney: TcxGridDBBandedColumn;
    Panel3: TPanel;
    Panel4: TPanel;
    V1KCPBQty: TcxGridDBBandedColumn;
    V1KCPBPS: TcxGridDBBandedColumn;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource4: TDataSource;
    DataSource5: TDataSource;
    Order_PB: TClientDataSet;
    Order_RF: TClientDataSet;
    Order_XS: TClientDataSet;
    Order_FYZC: TClientDataSet;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery4: TADOQuery;
    cxGrid2: TcxGrid;
    TV2: TcxGridDBBandedTableView;
    cxGridDBBandedColumn1: TcxGridDBBandedColumn;
    cxGridDBBandedColumn2: TcxGridDBBandedColumn;
    V2Column1: TcxGridDBBandedColumn;
    cxGridDBBandedColumn3: TcxGridDBBandedColumn;
    cxGridDBBandedColumn4: TcxGridDBBandedColumn;
    cxGridDBBandedColumn5: TcxGridDBBandedColumn;
    cxGridDBBandedColumn6: TcxGridDBBandedColumn;
    V2FactoryName: TcxGridDBBandedColumn;
    cxGridLevel2: TcxGridLevel;
    Panel5: TPanel;
    cxGrid5: TcxGrid;
    TV5: TcxGridDBBandedTableView;
    V5CRTime: TcxGridDBBandedColumn;
    V5YFName: TcxGridDBBandedColumn;
    V5RMBMoney: TcxGridDBBandedColumn;
    cxGridLevel5: TcxGridLevel;
    Label1: TLabel;
    ConNo: TEdit;
    cxGrid4: TcxGrid;
    TV4: TcxGridDBBandedTableView;
    cxGridDBBandedColumn15: TcxGridDBBandedColumn;
    cxGridDBBandedColumn16: TcxGridDBBandedColumn;
    V4P_Spec: TcxGridDBBandedColumn;
    cxGridDBBandedColumn17: TcxGridDBBandedColumn;
    cxGridDBBandedColumn18: TcxGridDBBandedColumn;
    cxGridDBBandedColumn19: TcxGridDBBandedColumn;
    cxGridDBBandedColumn20: TcxGridDBBandedColumn;
    V4RMBMoney: TcxGridDBBandedColumn;
    V4BZType: TcxGridDBBandedColumn;
    cxGridLevel4: TcxGridLevel;
    cxGrid3: TcxGrid;
    TV3: TcxGridDBBandedTableView;
    cxGridDBBandedColumn8: TcxGridDBBandedColumn;
    cxGridDBBandedColumn9: TcxGridDBBandedColumn;
    cxGridDBBandedColumn10: TcxGridDBBandedColumn;
    cxGridLevel3: TcxGridLevel;
    DataSource3: TDataSource;
    ADOQuery3: TADOQuery;
    Order_SK: TClientDataSet;
    V5BZType: TcxGridDBBandedColumn;
    V3BZType: TcxGridDBBandedColumn;
    V3Huilv: TcxGridDBBandedColumn;
    Label4: TLabel;
    MaoLMoney: TEdit;
    Label5: TLabel;
    YGMoney: TEdit;
    V1FactoryName: TcxGridDBBandedColumn;
    V5Note: TcxGridDBBandedColumn;
    V4Huilv: TcxGridDBBandedColumn;
    DataSource6: TDataSource;
    ADOQuery5: TADOQuery;
    Order_FL: TClientDataSet;
    cxGrid6: TcxGrid;
    TV6: TcxGridDBBandedTableView;
    V6CRTime: TcxGridDBBandedColumn;
    V6FactoryName: TcxGridDBBandedColumn;
    V6SPName: TcxGridDBBandedColumn;
    V6FLQty: TcxGridDBBandedColumn;
    V6Price: TcxGridDBBandedColumn;
    V6FLMoney: TcxGridDBBandedColumn;
    cxGridLevel6: TcxGridLevel;
    procedure FormClose(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure TBCloseClick(Sender : TObject);
    procedure _PROC_00840CF6(Sender : TObject);
    procedure _PROC_00841285(Sender : TObject);
    procedure _PROC_008412B4(Sender : TObject);
    procedure _PROC_008412BC(Sender : TObject);
    procedure _PROC_00841322(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FrmJYOrderYS: TFrmJYOrderYS;

{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TFrmJYOrderYS.FormClose(Sender : TObject);
begin
(*
00840FEC   C60102                 mov     byte ptr [ecx], $02
00840FEF   C3                     ret

*)
end;

procedure TFrmJYOrderYS.FormDestroy(Sender : TObject);
begin
(*
00840FF0   33C0                   xor     eax, eax

* Reference to GlobalVar_00895A38
|
00840FF2   A3385A8900             mov     dword ptr [$00895A38], eax
00840FF7   C3                     ret

*)
end;

procedure TFrmJYOrderYS.FormShow(Sender : TObject);
begin
(*
00840FF8   55                     push    ebp
00840FF9   8BEC                   mov     ebp, esp
00840FFB   33C9                   xor     ecx, ecx
00840FFD   51                     push    ecx
00840FFE   51                     push    ecx
00840FFF   51                     push    ecx
00841000   51                     push    ecx
00841001   53                     push    ebx
00841002   8BD8                   mov     ebx, eax
00841004   33C0                   xor     eax, eax
00841006   55                     push    ebp

* Possible String Reference to: 'éÑ9¼ÿëë[‹å]Ã'
|
00841007   681E118400             push    $0084111E

***** TRY
|
0084100C   64FF30                 push    dword ptr fs:[eax]
0084100F   648920                 mov     fs:[eax], esp

* Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷Ï¸'
|
00841012   B934118400             mov     ecx, $00841134

* Reference to control TFrmJYOrderYS.TV1 : TcxGridDBBandedTableView
|
00841017   8B9318030000           mov     edx, [ebx+$0318]

* Possible String Reference to: 'Å÷²¼2'
|
0084101D   B84C118400             mov     eax, $0084114C

|
00841022   E87D6AF7FF             call    007B7AA4

* Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷Ï¸'
|
00841027   B934118400             mov     ecx, $00841134

* Reference to control TFrmJYOrderYS.TV2 : TcxGridDBBandedTableView
|
0084102C   8B9378030000           mov     edx, [ebx+$0378]

* Possible String Reference to: 'È¾·Ñ1'
|
00841032   B85C118400             mov     eax, $0084115C

|
00841037   E8686AF7FF             call    007B7AA4

* Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷Ï¸'
|
0084103C   B934118400             mov     ecx, $00841134

* Reference to control TFrmJYOrderYS.TV3 : TcxGridDBBandedTableView
|
00841041   8B93F8030000           mov     edx, [ebx+$03F8]

* Possible String Reference to: 'ÊÕ¿î1'
|
00841047   B86C118400             mov     eax, $0084116C

|
0084104C   E8536AF7FF             call    007B7AA4

* Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷Ï¸'
|
00841051   B934118400             mov     ecx, $00841134

* Reference to control TFrmJYOrderYS.TV5 : TcxGridDBBandedTableView
|
00841056   8B93A8030000           mov     edx, [ebx+$03A8]

* Possible String Reference to: '·ÑÓÃÖ§³ö1'
|
0084105C   B87C118400             mov     eax, $0084117C

|
00841061   E83E6AF7FF             call    007B7AA4

* Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷Ï¸'
|
00841066   B934118400             mov     ecx, $00841134

* Reference to control TFrmJYOrderYS.TV4 : TcxGridDBBandedTableView
|
0084106B   8B93C8030000           mov     edx, [ebx+$03C8]

* Possible String Reference to: 'ÏúÊÛ³ö¿â2'
|
00841071   B890118400             mov     eax, $00841190

|
00841076   E8296AF7FF             call    007B7AA4
0084107B   8D55FC                 lea     edx, [ebp-$04]

* Reference to field TFrmJYOrderYS.OFFS_0474
|
0084107E   8B8374040000           mov     eax, [ebx+$0474]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00841084   E86398BCFF             call    0040A8EC
00841089   8B55FC                 mov     edx, [ebp-$04]

* Reference to control TFrmJYOrderYS.ConNo : TEdit
|
0084108C   8B83C0030000           mov     eax, [ebx+$03C0]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00841092   E88975C4FF             call    00488620
00841097   8D55F8                 lea     edx, [ebp-$08]

* Reference to field TFrmJYOrderYS.OFFS_047C
|
0084109A   8B837C040000           mov     eax, [ebx+$047C]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008410A0   E84798BCFF             call    0040A8EC
008410A5   8B55F8                 mov     edx, [ebp-$08]

* Reference to control TFrmJYOrderYS.KHName : TEdit
|
008410A8   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
008410AE   E86D75C4FF             call    00488620
008410B3   8D55F4                 lea     edx, [ebp-$0C]

* Reference to field TFrmJYOrderYS.OFFS_0480
|
008410B6   8B8380040000           mov     eax, [ebx+$0480]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008410BC   E82B98BCFF             call    0040A8EC
008410C1   8B55F4                 mov     edx, [ebp-$0C]

* Reference to control TFrmJYOrderYS.MaoLMoney : TEdit
|
008410C4   8B8328040000           mov     eax, [ebx+$0428]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
008410CA   E85175C4FF             call    00488620
008410CF   8D55F0                 lea     edx, [ebp-$10]

* Reference to field TFrmJYOrderYS.OFFS_0484
|
008410D2   8B8384040000           mov     eax, [ebx+$0484]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008410D8   E80F98BCFF             call    0040A8EC
008410DD   8B55F0                 mov     edx, [ebp-$10]

* Reference to control TFrmJYOrderYS.YGMoney : TEdit
|
008410E0   8B8330040000           mov     eax, [ebx+$0430]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
008410E6   E83575C4FF             call    00488620

* Reference to field TFrmJYOrderYS.OFFS_0488
|
008410EB   8B9388040000           mov     edx, [ebx+$0488]

* Reference to control TFrmJYOrderYS.JFJGMoney : TEdit
|
008410F1   8B8308030000           mov     eax, [ebx+$0308]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
008410F7   E82475C4FF             call    00488620
008410FC   8BC3                   mov     eax, ebx

|
008410FE   E805EFFFFF             call    00840008
00841103   33C0                   xor     eax, eax
00841105   5A                     pop     edx
00841106   59                     pop     ecx
00841107   59                     pop     ecx
00841108   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '[‹å]Ã'
|
0084110B   6825118400             push    $00841125
00841110   8D45F0                 lea     eax, [ebp-$10]
00841113   BA04000000             mov     edx, $00000004

* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00841118   E82B42BCFF             call    00405348
0084111D   C3                     ret


* Reference to: System.@HandleFinally;
|
0084111E   E9D139BCFF             jmp     00404AF4
00841123   EBEB                   jmp     00841110

****** END
|
00841125   5B                     pop     ebx
00841126   8BE5                   mov     esp, ebp
00841128   5D                     pop     ebp
00841129   C3                     ret

*)
end;

procedure TFrmJYOrderYS.TBCloseClick(Sender : TObject);
begin
(*
0084119C   53                     push    ebx
0084119D   8BD8                   mov     ebx, eax

* Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷Ï¸'
|
0084119F   B91C128400             mov     ecx, $0084121C

* Reference to control TFrmJYOrderYS.TV1 : TcxGridDBBandedTableView
|
008411A4   8B9318030000           mov     edx, [ebx+$0318]

* Possible String Reference to: 'Å÷²¼2'
|
008411AA   B834128400             mov     eax, $00841234

|
008411AF   E8086BF7FF             call    007B7CBC

* Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷Ï¸'
|
008411B4   B91C128400             mov     ecx, $0084121C

* Reference to control TFrmJYOrderYS.TV2 : TcxGridDBBandedTableView
|
008411B9   8B9378030000           mov     edx, [ebx+$0378]

* Possible String Reference to: 'È¾·Ñ1'
|
008411BF   B844128400             mov     eax, $00841244

|
008411C4   E8F36AF7FF             call    007B7CBC

* Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷Ï¸'
|
008411C9   B91C128400             mov     ecx, $0084121C

* Reference to control TFrmJYOrderYS.TV3 : TcxGridDBBandedTableView
|
008411CE   8B93F8030000           mov     edx, [ebx+$03F8]

* Possible String Reference to: 'ÊÕ¿î1'
|
008411D4   B854128400             mov     eax, $00841254

|
008411D9   E8DE6AF7FF             call    007B7CBC

* Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷Ï¸'
|
008411DE   B91C128400             mov     ecx, $0084121C

* Reference to control TFrmJYOrderYS.TV5 : TcxGridDBBandedTableView
|
008411E3   8B93A8030000           mov     edx, [ebx+$03A8]

* Possible String Reference to: '·ÑÓÃÖ§³ö1'
|
008411E9   B864128400             mov     eax, $00841264

|
008411EE   E8C96AF7FF             call    007B7CBC

* Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷Ï¸'
|
008411F3   B91C128400             mov     ecx, $0084121C

* Reference to control TFrmJYOrderYS.TV4 : TcxGridDBBandedTableView
|
008411F8   8B93C8030000           mov     edx, [ebx+$03C8]

* Possible String Reference to: 'ÏúÊÛ³ö¿â2'
|
008411FE   B878128400             mov     eax, $00841278

|
00841203   E8B46AF7FF             call    007B7CBC
00841208   8BC3                   mov     eax, ebx

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
0084120A   E8894DC6FF             call    004A5F98
0084120F   5B                     pop     ebx
00841210   C3                     ret

*)
end;

procedure TFrmJYOrderYS._PROC_00840CF6(Sender : TObject);
begin
(*
00840CF6   53                     push    ebx
00840CF7   44                     inc     esp
00840CF8   4D                     dec     ebp
00840CF9   6F                     outsd
00840CFA   6E                     outsb
00840CFB   65793D                 jns     00840D3B
00840CFE   7375                   jnb     00840D75
00840D00   6D                     insd
00840D01   28452E                 sub     [ebp+$2E], al
00840D04   4E                     dec     esi
00840D05   756D                   jnz     00840D74
00840D07   2900                   sub     dword ptr [eax], eax
00840D09   0000                   add     [eax], al

00840D0B   00FF                   add     bh, bh
00840D0D   FFFF                   DB  $FF, $FF  //      
00840D0F   FF13                   call    dword ptr [ebx]
00840D11   0000                   add     [eax], al

00840D13   006672                 add     [esi+$72], ah
00840D16   6F                     outsd
00840D17   6D                     insd
00840D18   205946                 and     [ecx+$46], bl
00840D1B   5F                     pop     edi
00840D1C   4D                     dec     ebp
00840D1D   6F                     outsd
00840D1E   6E                     outsb
00840D1F   65795F                 jns     00840D81
00840D22   43                     inc     ebx
00840D23   52                     push    edx
00840D24   204120                 and     [ecx+$20], al
00840D27   00FF                   add     bh, bh
00840D29   FFFF                   DB  $FF, $FF  //      
00840D2B   FF27                   jmp     dword ptr [edi]
00840D2D   0000                   add     [eax], al

00840D2F   00696E                 add     [ecx+$6E], ch
00840D32   6E                     outsb
00840D33   657220                 jb      00840D56
00840D36   6A6F                   push    $6F
00840D38   696E2059465F6C         imul    ebp, [esi+$20], $6C5F4659
00840D3F   6F                     outsd
00840D40   67204520               and     [di+$20], al
00840D44   6F                     outsd
00840D45   6E                     outsb
00840D46   20452E                 and     [ebp+$2E], al
00840D49   4C                     dec     esp
00840D4A   6973744E6F3D41         imul    esi, [ebx+$74], $413D6F4E
00840D51   2E59                   pop     ecx
00840D53   46                     inc     esi
00840D54   49                     dec     ecx
00840D55   44                     inc     esp
00840D56   2000                   and     [eax], al
00840D58   FFFF                   DB  $FF, $FF  //      
00840D5A   FFFF                   DB  $FF, $FF  //      
00840D5C   44                     inc     esp
00840D5D   0000                   add     [eax], al

00840D5F   00696E                 add     [ecx+$6E], ch
00840D62   6E                     outsb
00840D63   657220                 jb      00840D86
00840D66   6A6F                   push    $6F
00840D68   696E2059465F4D         imul    ebp, [esi+$20], $4D5F4659
00840D6F   6F                     outsd
00840D70   6E                     outsb
00840D71   65795F                 jns     00840DD3
00840D74   43                     inc     ebx
00840D75   52                     push    edx
00840D76   204220                 and     [edx+$20], al
00840D79   6F                     outsd
00840D7A   6E                     outsb
00840D7B   20422E                 and     [edx+$2E], al
00840D7E   59                     pop     ecx
00840D7F   46                     inc     esi
00840D80   49                     dec     ecx
00840D81   44                     inc     esp
00840D82   3D452E546F             cmp     eax, $6F542E45
00840D87   4E                     dec     esi
00840D88   6F                     outsd
00840D89   20616E                 and     [ecx+$6E], ah
00840D8C   6420422E               and     fs:[edx+$2E], al
00840D90   43                     inc     ebx
00840D91   52                     push    edx
00840D92   54                     push    esp
00840D93   7970                   jns     00840E05
00840D95   653D27D3A6CA           cmp     eax, $CAA6D327
00840D9B   D5                     aad
00840D9C   BFEEB5C7BC             mov     edi, $BCC7B5EE
00840DA1   C72720000000           mov     dword ptr [edi], $00000020
00840DA7   00FF                   add     bh, bh
00840DA9   FFFF                   DB  $FF, $FF  //      
00840DAB   FF10                   call    dword ptr [eax]
00840DAD   0000                   add     [eax], al

00840DAF   007768                 add     [edi+$68], dh
00840DB2   657265                 jb      00840E1A
00840DB5   20422E                 and     [edx+$2E], al
00840DB8   4D                     dec     ebp
00840DB9   61                     popa
00840DBA   696E69643D2700         imul    ebp, [esi+$69], $00273D64
00840DC1   0000                   add     [eax], al

00840DC3   00FF                   add     bh, bh
00840DC5   FFFF                   DB  $FF, $FF  //      
00840DC7   FF1A                   call    [edx]
00840DC9   0000                   add     [eax], al

00840DCB   0027                   add     [edi], ah
00840DCD   20616E                 and     [ecx+$6E], ah
00840DD0   6420412E               and     fs:[ecx+$2E], al
00840DD4   43                     inc     ebx
00840DD5   52                     push    edx
00840DD6   54                     push    esp
00840DD7   7970                   jns     00840E49
00840DD9   653D27CAD5BF           cmp     eax, $BFD5CA27
00840DDF   EE                     out     dx, al
00840DE0   B5C7                   mov     ch, $C7
00840DE2   BCC7272000             mov     esp, $002027C7
00840DE7   00FF                   add     bh, bh
00840DE9   FFFF                   DB  $FF, $FF  //      
00840DEB   FF12                   call    dword ptr [edx]
00840DED   0000                   add     [eax], al

00840DEF   0020                   add     [eax], ah
00840DF1   61                     popa
00840DF2   6E                     outsb
00840DF3   6420412E               and     fs:[ecx+$2E], al
00840DF7   7374                   jnb     00840E6D
00840DF9   61                     popa
00840DFA   7475                   jz      00840E71
00840DFC   733C                   jnb     00840E3A
00840DFE   3E27                   daa
00840E00   3027                   xor     [edi], ah
00840E02   0000                   add     [eax], al

00840E04   FFFF                   DB  $FF, $FF  //      
00840E06   FFFF                   DB  $FF, $FF  //      
00840E08   2B00                   sub     eax, dword ptr [eax]
00840E0A   0000                   add     [eax], al

00840E0C   206772                 and     [edi+$72], ah
00840E0F   6F                     outsd
00840E10   7570                   jnz     00840E82
00840E12   206279                 and     [edx+$79], ah
00840E15   20422E                 and     [edx+$2E], al
00840E18   43                     inc     ebx
00840E19   6F                     outsd
00840E1A   6E                     outsb
00840E1B   4E                     dec     esi
00840E1C   6F                     outsd
00840E1D   2C41                   sub     al, $41
00840E1F   2E43                   inc     ebx
00840E21   52                     push    edx
00840E22   54                     push    esp
00840E23   696D652C412E42         imul    ebp, [ebp+$65], $422E412C
00840E2A   5A                     pop     edx
00840E2B   54                     push    esp
00840E2C   7970                   jns     00840E9E
00840E2E   652C41                 sub     al, $41
00840E31   2E48                   dec     eax
00840E33   7569                   jnz     00840E9E
00840E35   6C                     insb
00840E36   7600                   jbe     00840E38
00840E38   FFFF                   DB  $FF, $FF  //      
00840E3A   FFFF                   DB  $FF, $FF  //      
00840E3C   2900                   sub     dword ptr [eax], eax
00840E3E   0000                   add     [eax], al

00840E40   7365                   jnb     00840EA7
00840E42   6C                     insb
00840E43   6563742041             arpl    gs:[eax+$41], si
00840E48   2E43                   inc     ebx
00840E4A   52                     push    edx
00840E4B   54                     push    esp
00840E4C   696D652C412E59         imul    ebp, [ebp+$65], $592E412C
00840E53   46                     inc     esi
00840E54   4E                     dec     esi
00840E55   61                     popa
00840E56   6D                     insd
00840E57   652C41                 sub     al, $41
00840E5A   2E42                   inc     edx
00840E5C   5A                     pop     edx
00840E5D   54                     push    esp
00840E5E   7970                   jns     00840ED0
00840E60   652C41                 sub     al, $41
00840E63   2E4E                   dec     esi
00840E65   6F                     outsd
00840E66   7465                   jz      00840ECD
00840E68   2000                   and     [eax], al
00840E6A   0000                   add     [eax], al

00840E6C   FFFF                   DB  $FF, $FF  //      
00840E6E   FFFF                   DB  $FF, $FF  //      
00840E70   1E                     push    ds
00840E71   0000                   add     [eax], al

00840E73   002C52                 add     [edx+edx*2], ch
00840E76   4D                     dec     ebp
00840E77   42                     inc     edx
00840E78   4D                     dec     ebp
00840E79   6F                     outsd
00840E7A   6E                     outsb
00840E7B   65793D                 jns     00840EBB
00840E7E   53                     push    ebx
00840E7F   756D                   jnz     00840EEE
00840E81   28412E                 sub     [ecx+$2E], al
00840E84   4D                     dec     ebp
00840E85   6F                     outsd
00840E86   6E                     outsb
00840E87   65792A                 jns     00840EB4
00840E8A   41                     inc     ecx
00840E8B   2E48                   dec     eax
00840E8D   7569                   jnz     00840EF8
00840E8F   6C                     insb
00840E90   7629                   jbe     00840EBB
00840E92   0000                   add     [eax], al

00840E94   FFFF                   DB  $FF, $FF  //      
00840E96   FFFF                   DB  $FF, $FF  //      
00840E98   4E                     dec     esi
00840E99   0000                   add     [eax], al

00840E9B   0027                   add     [edi], ah
00840E9D   20616E                 and     [ecx+$6E], ah
00840EA0   6420412E               and     fs:[ecx+$2E], al
00840EA4   43                     inc     ebx
00840EA5   52                     push    edx
00840EA6   54                     push    esp
00840EA7   7970                   jns     00840F19
00840EA9   6520696E               and     gs:[ecx+$6E], ch
00840EAD   2028                   and     [eax], ch
00840EAF   27                     daa
00840EB0   D3A6B8B6BFEE           shl     dword ptr [esi+$EEBFB6B8], cl
00840EB6   B5C7                   mov     ch, $C7
00840EB8   BCC7272C27             mov     esp, $272C27C7
00840EBD   B8B6BFEED4             mov     eax, $D4EEBFB6
00840EC2   D3B7D1272920           DB  $D3, $B7, $D1, $27, $29, $20  //      dword ptr [edi+$202927D1], cl
00840EC8   61                     popa
00840EC9   6E                     outsb
00840ECA   64206973               and     fs:[ecx+$73], ch
00840ECE   6E                     outsb
00840ECF   756C                   jnz     00840F3D
00840ED1   6C                     insb
00840ED2   28412E                 sub     [ecx+$2E], al
00840ED5   46                     inc     esi
00840ED6   59                     pop     ecx
00840ED7   54                     push    esp
00840ED8   7970                   jns     00840F4A
00840EDA   652C27                 sub     al, $27
00840EDD   27                     daa
00840EDE   293C3E                 sub     dword ptr [esi+edi], edi
00840EE1   27                     daa
00840EE2   BCD3B9A4B7             mov     esp, $B7A4B9D3
00840EE7   D127                   shl     dword ptr [edi], 1
00840EE9   2000                   and     [eax], al
00840EEB   00FF                   add     bh, bh
00840EED   FFFF                   DB  $FF, $FF  //      
00840EEF   FF4500                 inc     dword ptr [ebp+$00]
00840EF2   0000                   add     [eax], al

00840EF4   20616E                 and     [ecx+$6E], ah
00840EF7   64206973               and     fs:[ecx+$73], ch
00840EFB   6E                     outsb
00840EFC   756C                   jnz     00840F6A
00840EFE   6C                     insb
00840EFF   28412E                 sub     [ecx+$2E], al
00840F02   59                     pop     ecx
00840F03   46                     inc     esi
00840F04   4E                     dec     esi
00840F05   61                     popa
00840F06   6D                     insd
00840F07   652C27                 sub     al, $27
00840F0A   27                     daa
00840F0B   293C3E                 sub     dword ptr [esi+edi], edi
00840F0E   27                     daa
00840F0F   B8A8C1CFB7             mov     eax, $B7CFC1A8
00840F14   D127                   shl     dword ptr [edi], 1
00840F16   20616E                 and     [ecx+$6E], ah
00840F19   64206973               and     fs:[ecx+$73], ch
00840F1D   6E                     outsb
00840F1E   756C                   jnz     00840F8C
00840F20   6C                     insb
00840F21   28412E                 sub     [ecx+$2E], al
00840F24   46                     inc     esi
00840F25   59                     pop     ecx
00840F26   54                     push    esp
00840F27   7970                   jns     00840F99
00840F29   652C27                 sub     al, $27
00840F2C   27                     daa
00840F2D   293C3E                 sub     dword ptr [esi+edi], edi
00840F30   27                     daa
00840F31   C5F7                   lds     esi, di
00840F33   B2BC                   mov     dl, $BC
00840F35   B7D1                   mov     bh, $D1
00840F37   27                     daa
00840F38   2000                   and     [eax], al
00840F3A   0000                   add     [eax], al

00840F3C   FFFF                   DB  $FF, $FF  //      
00840F3E   FFFF                   DB  $FF, $FF  //      
00840F40   7300                   jnb     00840F42
00840F42   0000                   add     [eax], al

00840F44   20616E                 and     [ecx+$6E], ah
00840F47   64206973               and     fs:[ecx+$73], ch
00840F4B   6E                     outsb
00840F4C   756C                   jnz     00840FBA
00840F4E   6C                     insb
00840F4F   28412E                 sub     [ecx+$2E], al
00840F52   59                     pop     ecx
00840F53   46                     inc     esi
00840F54   4E                     dec     esi
00840F55   61                     popa
00840F56   6D                     insd
00840F57   652C27                 sub     al, $27
00840F5A   27                     daa
00840F5B   293C3E                 sub     dword ptr [esi+edi], edi
00840F5E   27                     daa
00840F5F   B2C3                   mov     dl, $C3
00840F61   BCF4C8CBB9             mov     esp, $B9CBC8F4
00840F66   A4                     movsb
00840F67   B7D1                   mov     bh, $D1
00840F69   27                     daa
00840F6A   20616E                 and     [ecx+$6E], ah
00840F6D   64206973               and     fs:[ecx+$73], ch
00840F71   6E                     outsb
00840F72   756C                   jnz     00840FE0
00840F74   6C                     insb
00840F75   28412E                 sub     [ecx+$2E], al
00840F78   59                     pop     ecx
00840F79   46                     inc     esi
00840F7A   4E                     dec     esi
00840F7B   61                     popa
00840F7C   6D                     insd
00840F7D   652C27                 sub     al, $27
00840F80   27                     daa
00840F81   293C3E                 sub     dword ptr [esi+edi], edi
00840F84   27                     daa
00840F85   B3B5                   mov     bl, $B5
00840F87   B9A4C8CBB9             mov     ecx, $B9CBC8A4
00840F8C   A4                     movsb
00840F8D   B7D1                   mov     bh, $D1
00840F8F   27                     daa
00840F90   20616E                 and     [ecx+$6E], ah
00840F93   64206973               and     fs:[ecx+$73], ch
00840F97   6E                     outsb
00840F98   756C                   jnz     00841006
00840F9A   6C                     insb
00840F9B   28412E                 sub     [ecx+$2E], al
00840F9E   59                     pop     ecx
00840F9F   46                     inc     esi
00840FA0   4E                     dec     esi
00840FA1   61                     popa
00840FA2   6D                     insd
00840FA3   652C27                 sub     al, $27
00840FA6   27                     daa
00840FA7   293C3E                 sub     dword ptr [esi+edi], edi
00840FAA   27                     daa
00840FAB   B0FC                   mov     al, $FC
00840FAD   D7                     xlat
00840FAE   B0C8                   mov     al, $C8
00840FB0   CB                     ret

00840FB1   B9A4B7D127             mov     ecx, $27D1B7A4
00840FB6   2000                   and     [eax], al
00840FB8   FFFF                   DB  $FF, $FF  //      
00840FBA   FFFF                   DB  $FF, $FF  //      
00840FBC   2B00                   sub     eax, dword ptr [eax]
00840FBE   0000                   add     [eax], al

00840FC0   206772                 and     [edi+$72], ah
00840FC3   6F                     outsd
00840FC4   7570                   jnz     00841036
00840FC6   206279                 and     [edx+$79], ah
00840FC9   20412E                 and     [ecx+$2E], al
00840FCC   43                     inc     ebx
00840FCD   52                     push    edx
00840FCE   54                     push    esp
00840FCF   696D652C412E59         imul    ebp, [ebp+$65], $592E412C
00840FD6   46                     inc     esi
00840FD7   4E                     dec     esi
00840FD8   61                     popa
00840FD9   6D                     insd
00840FDA   652C41                 sub     al, $41
00840FDD   2E42                   inc     edx
00840FDF   5A                     pop     edx
00840FE0   54                     push    esp
00840FE1   7970                   jns     00841053
00840FE3   652C41                 sub     al, $41
00840FE6   2E4E                   dec     esi
00840FE8   6F                     outsd
00840FE9   7465                   jz      00841050
00840FEB   00C6                   add     dh, al
00840FED   0102                   add     [edx], eax
00840FEF   C3                     ret

00840FF0   33C0                   xor     eax, eax

* Reference to GlobalVar_00895A38
|
00840FF2   A3385A8900             mov     dword ptr [$00895A38], eax
00840FF7   C3                     ret

00840FF8   55                     push    ebp
00840FF9   8BEC                   mov     ebp, esp
00840FFB   33C9                   xor     ecx, ecx
00840FFD   51                     push    ecx
00840FFE   51                     push    ecx
00840FFF   51                     push    ecx
00841000   51                     push    ecx
00841001   53                     push    ebx
00841002   8BD8                   mov     ebx, eax
00841004   33C0                   xor     eax, eax
00841006   55                     push    ebp

* Possible String Reference to: 'éÑ9¼ÿëë[‹å]Ã'
|
00841007   681E118400             push    $0084111E

***** TRY
|
0084100C   64FF30                 push    dword ptr fs:[eax]
0084100F   648920                 mov     fs:[eax], esp

* Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷Ï¸'
|
00841012   B934118400             mov     ecx, $00841134

* Reference to control Label7 : N.A.
|
00841017   8B9318030000           mov     edx, [ebx+$0318]

* Possible String Reference to: 'Å÷²¼2'
|
0084101D   B84C118400             mov     eax, $0084114C

|
00841022   E87D6AF7FF             call    007B7AA4

* Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷Ï¸'
|
00841027   B934118400             mov     ecx, $00841134

* Reference to control v1XHNo : N.A.
|
0084102C   8B9378030000           mov     edx, [ebx+$0378]

* Possible String Reference to: 'È¾·Ñ1'
|
00841032   B85C118400             mov     eax, $0084115C

|
00841037   E8686AF7FF             call    007B7AA4

* Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷Ï¸'
|
0084103C   B934118400             mov     ecx, $00841134

* Reference to control KHConNo : N.A.
|
00841041   8B93F8030000           mov     edx, [ebx+$03F8]

* Possible String Reference to: 'ÊÕ¿î1'
|
00841047   B86C118400             mov     eax, $0084116C

|
0084104C   E8536AF7FF             call    007B7AA4

* Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷Ï¸'
|
00841051   B934118400             mov     ecx, $00841134

* Reference to control Label17 : N.A.
|
00841056   8B93A8030000           mov     edx, [ebx+$03A8]

* Possible String Reference to: '·ÑÓÃÖ§³ö1'
|
0084105C   B87C118400             mov     eax, $0084117C

|
00841061   E83E6AF7FF             call    007B7AA4

* Possible String Reference to: '¶©µ¥ÊÕ¸¶¿îÃ÷Ï¸'
|
00841066   B934118400             mov     ecx, $00841134

* Reference to control ToolButton3 : N.A.
|
0084106B   8B93C8030000           mov     edx, [ebx+$03C8]

* Possible String Reference to: 'ÏúÊÛ³ö¿â2'
|
00841071   B890118400             mov     eax, $00841190

|
00841076   E8296AF7FF             call    007B7AA4
0084107B   8D55FC                 lea     edx, [ebp-$04]

* Reference to control Label34 : N.A.
|
0084107E   8B8374040000           mov     eax, [ebx+$0474]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00841084   E86398BCFF             call    0040A8EC
00841089   8B55FC                 mov     edx, [ebp-$04]

* Reference to control Label21 : N.A.
|
0084108C   8B83C0030000           mov     eax, [ebx+$03C0]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00841092   E88975C4FF             call    00488620
00841097   8D55F8                 lea     edx, [ebp-$08]

* Reference to control cxGrid2 : TcxGrid
|
0084109A   8B837C040000           mov     eax, [ebx+$047C]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008410A0   E84798BCFF             call    0040A8EC
008410A5   8B55F8                 mov     edx, [ebp-$08]

* Reference to control TBClose : TToolButton
|
008410A8   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
008410AE   E86D75C4FF             call    00488620
008410B3   8D55F4                 lea     edx, [ebp-$0C]

* Reference to control Tv2 : N.A.
|
008410B6   8B8380040000           mov     eax, [ebx+$0480]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008410BC   E82B98BCFF             call    0040A8EC
008410C1   8B55F4                 mov     edx, [ebp-$0C]

* Reference to control conDefstr3 : N.A.
|
008410C4   8B8328040000           mov     eax, [ebx+$0428]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
008410CA   E85175C4FF             call    00488620
008410CF   8D55F0                 lea     edx, [ebp-$10]

* Reference to control cxGridDBColumn1 : N.A.
|
008410D2   8B8384040000           mov     eax, [ebx+$0484]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008410D8   E80F98BCFF             call    0040A8EC
008410DD   8B55F0                 mov     edx, [ebp-$10]

* Reference to control conDefstr5 : N.A.
|
008410E0   8B8330040000           mov     eax, [ebx+$0430]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
008410E6   E83575C4FF             call    00488620

* Reference to control cxGridDBColumn18 : N.A.
|
008410EB   8B9388040000           mov     edx, [ebx+$0488]

* Reference to control Label3 : TLabel
|
008410F1   8B8308030000           mov     eax, [ebx+$0308]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
008410F7   E82475C4FF             call    00488620
008410FC   8BC3                   mov     eax, ebx

|
008410FE   E805EFFFFF             call    00840008
00841103   33C0                   xor     eax, eax
00841105   5A                     pop     edx
00841106   59                     pop     ecx
00841107   59                     pop     ecx
00841108   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '[‹å]Ã'
|
0084110B   6825118400             push    $00841125
00841110   8D45F0                 lea     eax, [ebp-$10]
00841113   BA04000000             mov     edx, $00000004

* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00841118   E82B42BCFF             call    00405348
0084111D   C3                     ret

*)
end;

procedure TFrmJYOrderYS._PROC_00841285(Sender : TObject);
begin
(*
00841285   8BEC                   mov     ebp, esp
00841287   33C0                   xor     eax, eax
00841289   55                     push    ebp

* Possible String Reference to: 'éF8¼ÿëø]Ã‹Àƒ-<Z‰'
|
0084128A   68A9128400             push    $008412A9

***** TRY
|
0084128F   64FF30                 push    dword ptr fs:[eax]
00841292   648920                 mov     fs:[eax], esp
00841295   FF053C5A8900           inc     dword ptr [$00895A3C]
0084129B   33C0                   xor     eax, eax
0084129D   5A                     pop     edx
0084129E   59                     pop     ecx
0084129F   59                     pop     ecx
008412A0   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: ']Ã‹Àƒ-<Z‰'
|
008412A3   68B0128400             push    $008412B0
008412A8   C3                     ret


* Reference to: System.@HandleFinally;
|
008412A9   E94638BCFF             jmp     00404AF4
008412AE   EBF8                   jmp     008412A8

****** END
|
008412B0   5D                     pop     ebp
008412B1   C3                     ret

*)
end;

procedure TFrmJYOrderYS._PROC_008412B4(Sender : TObject);
begin
(*
008412B4   832D3C5A890001         sub     dword ptr [$00895A3C], +$01
008412BB   C3                     ret

*)
end;

procedure TFrmJYOrderYS._PROC_008412BC(Sender : TObject);
begin
(*
008412BC   0813                   or      [ebx], dl
008412BE   8400                   test    [eax], al
008412C0   0000                   add     [eax], al

*)
end;

procedure TFrmJYOrderYS._PROC_00841322(Sender : TObject);
begin
(*
00841322   48                     dec     eax
00841323   0050D4                 add     [eax-$2C], dl
00841326   42                     inc     edx
00841327   0008                   add     [eax], cl
00841329   2D4A007CD0             sub     eax, $D07C004A
0084132E   42                     inc     edx
0084132F   00F4                   add     ah, dh
00841331   6B4A00D0               imul    ecx, [edx+$00], $D0
00841335   1D4A0030F6             sbb     eax, $F630004A
0084133A   48                     dec     eax
0084133B   004CFB48               add     [ebx+edi*8+$48], cl
0084133F   0098FA48000C           add     [eax+$C0048FA], bl
00841345   7948                   jns     0084138F
00841347   00ACF04800E829         add     [eax+esi*8+$29E80048], ch
0084134E   4A                     dec     edx
0084134F   00E4                   add     ah, ah
00841351   ED                     in      eax, dx
00841352   48                     dec     eax
00841353   00547848               add     [eax+edi*2+$48], dl
00841357   005878                 add     [eax+$78], bl
0084135A   48                     dec     eax
0084135B   00DC                   add     ah, bl
0084135D   2A4A00                 sub     cl, byte ptr [edx+$00]
00841360   3CA9                   cmp     al, $A9
00841362   48                     dec     eax
00841363   00C0                   add     al, al
00841365   834800D0               or      dword ptr [eax+$00], -$30
00841369   7948                   jns     008413B3
0084136B   004C8548               add     [ebp+eax*4+$48], cl
0084136F   00D0                   add     al, dl
00841371   2C4A                   sub     al, $4A
00841373   009C2B4A008486         add     [ebx+ebp+$8684004A], bl
0084137A   48                     dec     eax
0084137B   00482D                 add     [eax+$2D], cl
0084137E   4A                     dec     edx
0084137F   00C0                   add     al, al
00841381   A9480038EE             test    eax, $EE380048
00841386   48                     dec     eax
00841387   00F4                   add     ah, dh
00841389   EE                     out     dx, al
0084138A   48                     dec     eax
0084138B   00F0                   add     al, dh
0084138D   E94800D8EE             jmp     EF5C13DA
00841392   48                     dec     eax
00841393   00D8                   add     al, bl
00841395   1B4A00                 sbb     ecx, [edx+$00]
00841398   EC                     in      al, dx
00841399   334A00                 xor     ecx, [edx+$00]
0084139C   20C4                   and     ah, al
0084139E   48                     dec     eax
0084139F   00B0404A0010           add     [eax+$10004A40], dh
008413A5   44                     inc     esp
008413A6   4A                     dec     edx
008413A7   00CC                   add     ah, cl
008413A9   42                     inc     edx
008413AA   4A                     dec     edx
008413AB   00B8C44800BC           add     [eax+$BC0048C4], bh
008413B1   C44800                 les     ecx, [eax+$00]
008413B4   48                     dec     eax
008413B5   45                     inc     ebp
008413B6   4A                     dec     edx
008413B7   001CC3                 add     [ebx+eax*8], bl
008413BA   48                     dec     eax
008413BB   0018                   add     [eax], bl
008413BD   F0                     lock
008413BE   48                     dec     eax
008413BF   00444C4A               add     [esp+ecx*2+$4A], al
008413C3   000C02                 add     [edx+eax], cl
008413C6   49                     dec     ecx
008413C7   0094EC48009C64         add     [esp+ebp*8+$649C0048], dl
008413CE   4A                     dec     edx
008413CF   008C154A003C18         add     [ebp+edx+$183C004A], cl
008413D6   4A                     dec     edx
008413D7   0038                   add     [eax], bh
008413D9   52                     push    edx
008413DA   4A                     dec     edx
008413DB   005C224A               add     [edx+$4A], bl
008413DF   00D8                   add     al, bl
008413E1   224A00                 and     cl, byte ptr [edx+$00]
008413E4   7C68                   jl      0084144E
008413E6   4A                     dec     edx
008413E7   00941F4A003C60         add     [edi+ebx+$603C004A], dl
008413EE   4A                     dec     edx
008413EF   001447                 add     [edi+eax*2], dl
008413F2   4A                     dec     edx
008413F3   0034654A00CC2C         add     [$2CCC004A], dh
008413FA   4A                     dec     edx
008413FB   000E                   add     [esi], cl
008413FD   0000                   add     [eax], al

008413FF   0000                   add     [eax], al

00841401   0002                   add     [edx], al
00841403   0000                   add     [eax], al

00841405   0020                   add     [eax], ah
00841407   114000                 adc     [eax+$00], eax
0084140A   48                     dec     eax
0084140B   0300                   add     eax, [eax]
0084140D   0020                   add     [eax], ah
0084140F   114000                 adc     [eax+$00], eax
00841412   4C                     dec     esp
00841413   0300                   add     eax, [eax]
00841415   001400                 add     [eax+eax], dl
00841418   3E16                   push    ss
0084141A   8400                   test    [eax], al
0084141C   F8                     clc
0084141D   0200                   add     al, byte ptr [eax]
0084141F   0000                   add     [eax], al

00841421   0009                   add     [ecx], cl
00841423   4C                     dec     esp
00841424   69737456696577         imul    esi, [ebx+$74], $77656956
0084142B   31FC                   xor     esp, edi
0084142D   0200                   add     al, byte ptr [eax]
0084142F   0001                   add     [ecx], al
00841431   0006                   add     [esi], al
00841433   50                     push    eax
00841434   61                     popa
00841435   6E                     outsb
00841436   656C                   insb
00841438   3100                   xor     [eax], eax
0084143A   0300                   add     eax, [eax]
0084143C   0002                   add     [edx], al
0084143E   0008                   add     [eax], cl
00841440   46                     inc     esi
00841441   696C654E616D6504       imul    ebp, [ebp+$4E], $04656D61
00841449   0300                   add     eax, [eax]
0084144B   0002                   add     [edx], al
0084144D   0009                   add     [ecx], cl
0084144F   637842                 arpl    [eax+$42], di
00841452   7574                   jnz     008414C8
00841454   746F                   jz      008414C5
00841456   6E                     outsb
00841457   3108                   xor     [eax], ecx
00841459   0300                   add     eax, [eax]
0084145B   0002                   add     [edx], al
0084145D   0009                   add     [ecx], cl
0084145F   637842                 arpl    [eax+$42], di
00841462   7574                   jnz     008414D8
00841464   746F                   jz      008414D5
00841466   6E                     outsb
00841467   320C03                 xor     cl, byte ptr [ebx+eax]
0084146A   0000                   add     [eax], al

0084146C   0200                   add     al, byte ptr [eax]
0084146E   096378                 or      [ebx+$78], esp
00841471   42                     inc     edx
00841472   7574                   jnz     008414E8
00841474   746F                   jz      008414E5
00841476   6E                     outsb
00841477   3310                   xor     edx, [eax]
00841479   0300                   add     eax, [eax]
0084147B   0003                   add     [ebx], al
0084147D   000B                   add     [ebx], cl
0084147F   41                     inc     ecx
00841480   44                     inc     esp
00841481   4F                     dec     edi
00841482   51                     push    ecx
00841483   7565                   jnz     008414EA
00841485   7279                   jb      00841500
00841487   54                     push    esp
00841488   6D                     insd
00841489   7014                   jo      0084149F
0084148B   0300                   add     eax, [eax]
0084148D   0003                   add     [ebx], al
0084148F   000B                   add     [ebx], cl
00841491   41                     inc     ecx
00841492   44                     inc     esp
00841493   4F                     dec     edi
00841494   51                     push    ecx
00841495   7565                   jnz     008414FC
00841497   7279                   jb      00841512
00841499   43                     inc     ebx
0084149A   6D                     insd
0084149B   641803                 sbb     fs:[ebx], al
0084149E   0000                   add     [eax], al

008414A0   0400                   add     al, +$00
008414A2   0A496D                 or      cl, byte ptr [ecx+$6D]
008414A5   61                     popa
008414A6   67654C                 dec     esp
008414A9   697374311C0300         imul    esi, [ebx+$74], $00031C31
008414B0   0001                   add     [ecx], al
008414B2   0006                   add     [esi], al
008414B4   50                     push    eax
008414B5   61                     popa
008414B6   6E                     outsb
008414B7   656C                   insb
008414B9   3220                   xor     ah, byte ptr [eax]
008414BB   0300                   add     eax, [eax]
008414BD   000500064964           add     [$64490600], al
008414C3   46                     inc     esi
008414C4   54                     push    esp
008414C5   50                     push    eax
008414C6   312403                 xor     [ebx+eax], esp
008414C9   0000                   add     [eax], al

008414CB   06                     push    es
008414CC   000E                   add     [esi], cl
008414CE   41                     inc     ecx
008414CF   44                     inc     esp
008414D0   4F                     dec     edi
008414D1   43                     inc     ebx
008414D2   6F                     outsd
008414D3   6E                     outsb
008414D4   6E                     outsb
008414D5   656374696F             arpl    gs:[ecx+ebp*2+$6F], si
008414DA   6E                     outsb
008414DB   3128                   xor     [eax], ebp
008414DD   0300                   add     eax, [eax]
008414DF   0007                   add     [edi], al
008414E1   0003                   add     [ebx], al
008414E3   54                     push    esp
008414E4   7631                   jbe     00841517
008414E6   2C03                   sub     al, $03
008414E8   0000                   add     [eax], al

008414EA   0800                   or      [eax], al
008414EC   0D63784772             or      eax, $72477863
008414F1   6964314C6576656C       imul    esp, [ecx+esi+$4C], $6C657665
008414F9   3130                   xor     [eax], esi
008414FB   0300                   add     eax, [eax]
008414FD   0009                   add     [ecx], cl
008414FF   0007                   add     [edi], al
00841501   637847                 arpl    [eax+$47], di
00841504   7269                   jb      0084156F
00841506   64313403               xor     fs:[ebx+eax], esi
0084150A   0000                   add     [eax], al

0084150C   0A00                   or      al, byte ptr [eax]
0084150E   097631                 or      [esi+$31], esi
00841511   43                     inc     ebx
00841512   6F                     outsd
00841513   6C                     insb
00841514   756D                   jnz     00841583
00841516   6E                     outsb
00841517   3138                   xor     [eax], edi
00841519   0300                   add     eax, [eax]
0084151B   000A                   add     [edx], cl
0084151D   0009                   add     [ecx], cl
0084151F   7631                   jbe     00841552
00841521   43                     inc     ebx
00841522   6F                     outsd
00841523   6C                     insb
00841524   756D                   jnz     00841593
00841526   6E                     outsb
00841527   323C03                 xor     bh, byte ptr [ebx+eax]
0084152A   0000                   add     [eax], al

0084152C   0A00                   or      al, byte ptr [eax]
0084152E   097631                 or      [esi+$31], esi
00841531   43                     inc     ebx
00841532   6F                     outsd
00841533   6C                     insb
00841534   756D                   jnz     008415A3
00841536   6E                     outsb
00841537   334003                 xor     eax, [eax+$03]
0084153A   0000                   add     [eax], al

0084153C   0B00                   or      eax, [eax]
0084153E   0B446174               or      eax, [ecx+$74]
00841542   61                     popa
00841543   53                     push    ebx
00841544   6F                     outsd
00841545   7572                   jnz     008415B9
00841547   636531                 arpl    [ebp+$31], sp
0084154A   44                     inc     esp
0084154B   0300                   add     eax, [eax]
0084154D   000A                   add     [edx], cl
0084154F   0009                   add     [ecx], cl
00841551   7631                   jbe     00841584
00841553   43                     inc     ebx
00841554   6F                     outsd
00841555   6C                     insb
00841556   756D                   jnz     008415C5
00841558   6E                     outsb
00841559   340B                   xor     al, $0B
0084155B   001500041884           add     [$84180400], dl
00841561   000E                   add     [esi], cl
00841563   637842                 arpl    [eax+$42], di
00841566   7574                   jnz     008415DC
00841568   746F                   jz      008415D9
0084156A   6E                     outsb
0084156B   33436C                 xor     eax, [ebx+$6C]
0084156E   69636B12003C18         imul    esp, [ebx+$6B], $183C0012
00841575   8400                   test    [eax], al
00841577   0B466F                 or      eax, [esi+$6F]
0084157A   726D                   jb      008415E9
0084157C   44                     inc     esp
0084157D   657374                 jnb     008415F4
00841580   726F                   jb      008415F1
00841582   7914                   jns     00841598
00841584   00441884               add     [eax+ebx-$7C], al
00841588   000D46696C65           add     [$656C6946], cl
0084158E   4E                     dec     esi
0084158F   61                     popa
00841590   6D                     insd
00841591   6543                   inc     ebx
00841593   6C                     insb
00841594   69636B11003C1E         imul    esp, [ebx+$6B], $1E3C0011
0084159B   8400                   test    [eax], al
0084159D   0A466F                 or      al, byte ptr [esi+$6F]
008415A0   726D                   jb      0084160F
008415A2   43                     inc     ebx
008415A3   7265                   jb      0084160A
008415A5   61                     popa
008415A6   7465                   jz      0084160D
008415A8   0F00BC                 DB  $0F, $00, $BC  //      
008415AB   1E                     push    ds
008415AC   8400                   test    [eax], al
008415AE   08466F                 or      [esi+$6F], al
008415B1   726D                   jb      00841620
008415B3   53                     push    ebx
008415B4   686F771800             push    $0018776F
008415B9   F0                     lock
008415BA   1E                     push    ds
008415BB   8400                   test    [eax], al
008415BD   114C6973               adc     [ecx+ebp*2+$73], ecx
008415C1   7456                   jz      00841619
008415C3   6965773144626C         imul    esp, [ebp+$77], $6C624431
008415CA   43                     inc     ebx
008415CB   6C                     insb
008415CC   69636B15007422         imul    esp, [ebx+$6B], $22740015
008415D3   8400                   test    [eax], al
008415D5   0E                     push    cs
008415D6   637842                 arpl    [eax+$42], di
008415D9   7574                   jnz     0084164F
008415DB   746F                   jz      0084164C
008415DD   6E                     outsb
008415DE   31436C                 xor     [ebx+$6C], eax
008415E1   69636B1500BC23         imul    esp, [ebx+$6B], $23BC0015
008415E8   8400                   test    [eax], al
008415EA   0E                     push    cs
008415EB   637842                 arpl    [eax+$42], di
008415EE   7574                   jnz     00841664
008415F0   746F                   jz      00841661
008415F2   6E                     outsb
008415F3   32436C                 xor     al, byte ptr [ebx+$6C]
008415F6   69636B1000B825         imul    esp, [ebx+$6B], $25B80010
008415FD   8400                   test    [eax], al
008415FF   09466F                 or      [esi+$6F], eax
00841602   726D                   jb      00841671
00841604   43                     inc     ebx
00841605   6C                     insb
00841606   6F                     outsd
00841607   7365                   jnb     0084166E
00841609   1500CC2584             adc     eax, $8425CC00
0084160E   000E                   add     [esi], cl
00841610   50                     push    eax
00841611   61                     popa
00841612   6E                     outsb
00841613   656C                   insb
00841615   3244626C               xor     al, byte ptr [edx+$6C]
00841619   43                     inc     ebx
0084161A   6C                     insb
0084161B   69636B1200DC25         imul    esp, [ebx+$6B], $25DC0012
00841622   8400                   test    [eax], al
00841624   0B547631               or      edx, [esi+esi*2+$31]
00841628   44                     inc     esp
00841629   626C436C               bound   ebp, qword ptr [ebx+eax*2+$6C]
0084162D   69636B0D546672         imul    esp, [ebx+$6B], $7266540D
00841634   6D                     insd
00841635   46                     inc     esi
00841636   6A4C                   push    $4C
00841638   6973745F525A0C         imul    esi, [ebx+$74], $0C5A525F
0084163F   007C7845               add     [eax+edi*2+$45], bh
00841643   0020                   add     [eax], ah
00841645   42                     inc     edx
00841646   44                     inc     esp
00841647   00EC                   add     ah, ch
00841649   E55B                   in      eax, $5B
0084164B   00B8124D00F4           add     [eax+$F4004D12], bh
00841651   4B                     dec     ebx
00841652   48                     dec     eax
00841653   008C9C7C00D8EA         add     [esp+ebx*4+$EAD8007C], cl
0084165A   4C                     dec     esp
0084165B   00F4                   add     ah, dh
0084165D   B466                   mov     ah, $66
0084165F   00A40E64000016         add     [esi+ecx+$16000064], ah
00841666   6300                   arpl    [eax], ax
00841668   34B1                   xor     al, $B1
0084166A   660008                 add     [eax], cl
0084166D   7F4B                   jnle    008416BA
0084166F   00741684               add     [esi+edx-$7C], dh
00841673   0007                   add     [edi], al
00841675   0D5466726D             or      eax, $6D726654
0084167A   46                     inc     esi
0084167B   6A4C                   push    $4C
0084167D   6973745F525A08         imul    esi, [ebx+$74], $085A525F
00841684   138400D0F24900         adc     eax, [eax+eax+$49F2D0]
0084168B   5E                     pop     esi
0084168C   000B                   add     [ebx], cl
0084168E   55                     push    ebp
0084168F   5F                     pop     edi
00841690   46                     inc     esi
00841691   6A4C                   push    $4C
00841693   6973745F525A00         imul    esi, [ebx+$74], $005A525F
0084169A   0090558BEC33           add     [eax+$33EC8B55], dl
008416A0   C9                     leave
008416A1   51                     push    ecx
008416A2   51                     push    ecx
008416A3   51                     push    ecx
008416A4   51                     push    ecx
008416A5   51                     push    ecx
008416A6   51                     push    ecx
008416A7   53                     push    ebx
008416A8   56                     push    esi
008416A9   57                     push    edi
008416AA   8BF0                   mov     esi, eax
008416AC   33C0                   xor     eax, eax
008416AE   55                     push    ebp

* Possible String Reference to: 'éB3¼ÿëë_^[‹å]Ã'
|
008416AF   68AD178400             push    $008417AD

***** TRY
|
008416B4   64FF30                 push    dword ptr fs:[eax]
008416B7   648920                 mov     fs:[eax], esp

* Reference to control ToolBar1 : TToolBar
|
008416BA   8B86F8020000           mov     eax, [esi+$02F8]

* Reference to field TToolBar.Wrapable : Boolean
|
008416C0   8B802C020000           mov     eax, [eax+$022C]

* Reference to: ComCtrls.TListItems.Clear(TListItems);
|
008416C6   E85567C2FF             call    00467E20
008416CB   33C0                   xor     eax, eax
008416CD   55                     push    ebp
008416CE   6888178400             push    $00841788

***** TRY
|
008416D3   64FF30                 push    dword ptr fs:[eax]
008416D6   648920                 mov     fs:[eax], esp

* Reference to control Label4 : TLabel
|
008416D9   8B9E10030000           mov     ebx, [esi+$0310]
008416DF   8BC3                   mov     eax, ebx

* Reference to: DB.TDataSet.Close(TDataSet);
|
008416E1   E8EE41C8FF             call    004C58D4
008416E6   8BC3                   mov     eax, ebx

* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|           or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008416E8   E8BFC8C9FF             call    004DDFAC
008416ED   8B10                   mov     edx, [eax]

* Reference to method TLabel.GetClientRect()
|
008416EF   FF5244                 call    dword ptr [edx+$44]
008416F2   8BC3                   mov     eax, ebx

* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|           or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008416F4   E8B3C8C9FF             call    004DDFAC

* Possible String Reference to: 'select * from TP_File '
|
008416F9   BAC4178400             mov     edx, $008417C4
008416FE   8B08                   mov     ecx, [eax]

* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00841700   FF5138                 call    dword ptr [ecx+$38]
00841703   8D55F4                 lea     edx, [ebp-$0C]

* Reference to control Order_Sub : N.A.
|
00841706   8B8648030000           mov     eax, [esi+$0348]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0084170C   E8DB91BCFF             call    0040A8EC
00841711   8B45F4                 mov     eax, [ebp-$0C]
00841714   8D55F8                 lea     edx, [ebp-$08]

* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
00841717   E8D892BCFF             call    0040A9F4
0084171C   8B4DF8                 mov     ecx, [ebp-$08]
0084171F   8D45FC                 lea     eax, [ebp-$04]

* Possible String Reference to: 'where WBID='
|
00841722   BAE4178400             mov     edx, $008417E4

* Reference to: System.@LStrCat3;
|
00841727   E8143FBCFF             call    00405640
0084172C   8B45FC                 mov     eax, [ebp-$04]
0084172F   50                     push    eax
00841730   8BC3                   mov     eax, ebx

* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|           or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00841732   E875C8C9FF             call    004DDFAC
00841737   5A                     pop     edx
00841738   8B08                   mov     ecx, [eax]

* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
0084173A   FF5138                 call    dword ptr [ecx+$38]
0084173D   8D55E8                 lea     edx, [ebp-$18]

* Reference to control ADOQuery1 : TADOQuery
|
00841740   8B864C030000           mov     eax, [esi+$034C]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00841746   E8A191BCFF             call    0040A8EC
0084174B   8B45E8                 mov     eax, [ebp-$18]
0084174E   8D55EC                 lea     edx, [ebp-$14]

* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
00841751   E89E92BCFF             call    0040A9F4
00841756   8B4DEC                 mov     ecx, [ebp-$14]
00841759   8D45F0                 lea     eax, [ebp-$10]

* Possible String Reference to: 'and TFType='
|
0084175C   BAF8178400             mov     edx, $008417F8

* Reference to: System.@LStrCat3;
|
00841761   E8DA3EBCFF             call    00405640
00841766   8B45F0                 mov     eax, [ebp-$10]
00841769   50                     push    eax
0084176A   8BC3                   mov     eax, ebx

* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|           or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
0084176C   E83BC8C9FF             call    004DDFAC
00841771   5A                     pop     edx
00841772   8B08                   mov     ecx, [eax]

* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00841774   FF5138                 call    dword ptr [ecx+$38]
00841777   8BC3                   mov     eax, ebx

* Reference to: DB.TDataSet.Open(TDataSet);
|
00841779   E84A41C8FF             call    004C58C8
0084177E   33C0                   xor     eax, eax
00841780   5A                     pop     edx
00841781   59                     pop     ecx
00841782   59                     pop     ecx
00841783   648910                 mov     fs:[eax], edx
00841786   EB0A                   jmp     00841792

* Reference to: System.@HandleAnyException;
|
00841788   E9B330BCFF             jmp     00404840

* Reference to: System.@DoneExcept;
|
0084178D   E8DA34BCFF             call    00404C6C

****** END
|
00841792   33C0                   xor     eax, eax
00841794   5A                     pop     edx
00841795   59                     pop     ecx
00841796   59                     pop     ecx
00841797   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '_^[‹å]Ã'
|
0084179A   68B4178400             push    $008417B4
0084179F   8D45E8                 lea     eax, [ebp-$18]
008417A2   BA06000000             mov     edx, $00000006

* Reference to: System.@LStrArrayClr(void;void;Integer);
|
008417A7   E89C3BBCFF             call    00405348
008417AC   C3                     ret

*)
end;

end.