将汇编语言转换Delphi(200)

不知有没有高手能将下面的汇编语言转为Delphi主要是三个过程Timer2TimerComPReceiveDataProc_004B3B10其它的可以不用转换unit xszl;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CPDrv, ExtCtrlstype TForm2=class(TForm) Shape1: TShape
Label1: TLabel
Timer2: TTimer
Label2: TLabel
Label3: TLabel
Label4: TLabel
Label5: TLabel
Label6: TLabel
Memo1: TMemo
Comp: TCommPortDriver
Label8: TLabel
Label9: TLabel
Timer1: TTimer
Button1: TButton
Shape2: TShape
Shape3: TShape
procedure Timer2Timer(Sender : TObject)
procedure FormCreate(Sender : TObject)
procedure ComPReceiveData(Sender : TObject)
procedure FormClose(Sender : TObject)
procedure Bt_DisComportClick(Sender : TObject)
procedure Button1Click(Sender : TObject)
procedure Proc_004B3B10(Sender : TObject)
private { Private declarations } public { Public declarations } end ;var Form2: TForm2;{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}implementation{$R *.DFM}procedure TForm2.Timer2Timer(Sender : TObject);begin(*004B3948 55 push ebp004B3949 8BEC mov ebp, esp004B394B 6A00 push $00004B394D 53 push ebx004B394E 8BD8 mov ebx, eax004B3950 33C0 xor eax, eax004B3952 55 push ebp004B3953 6896394B00 push $004B3996***** TRY|004B3958 64FF30 push dword ptr fs:[eax]004B395B 648920 mov fs:[eax], esp004B395E 8D55FC lea edx, [ebp-$04]* Reference to control TForm2.Label6 : TLabel|004B3961 8B830C030000 mov eax, [ebx+$030C]* Reference to: Controls.TControl.GetText(TControl):TCaption;|004B3967 E8BCE2F8FF call 00441C28004B396C 8B55FC mov edx, [ebp-$04]004B396F B8B0BF4B00 mov eax, $004BBFB0* Reference to: System.@LStrAsg(void;void;void;void);|004B3974 E8830BF5FF call 004044FC004B3979 8BC3 mov eax, ebx* Reference to : TForm2.Proc_004B3B10()|004B397B E890010000 call 004B3B10004B3980 33C0 xor eax, eax004B3982 5A pop edx004B3983 59 pop ecx004B3984 59 pop ecx004B3985 648910 mov fs:[eax], edx****** FINALLY|* Possible String Reference to: '[Y]脥@'|004B3988 689D394B00 push $004B399D004B398D 8D45FC lea eax, [ebp-$04]* Reference to: System.@LStrClr(void;void);|004B3990 E8130BF5FF call 004044A8004B3995 C3 ret* Reference to: System.@HandleFinally;|004B3996 E9B104F5FF jmp 00403E4C004B399B EBF0 jmp 004B398D****** END|004B399D 5B pop ebx004B399E 59 pop ecx004B399F 5D pop ebp004B39A0 C3 ret*)end;procedure TForm2.FormCreate(Sender : TObject);begin(*004B4668 55 push ebp004B4669 8BEC mov ebp, esp004B466B 6A00 push $00004B466D 6A00 push $00004B466F 6A00 push $00004B4671 53 push ebx004B4672 56 push esi004B4673 8BF0 mov esi, eax004B4675 33C0 xor eax, eax004B4677 55 push ebp004B4678 682C474B00 push $004B472C***** TRY|004B467D 64FF30 push dword ptr fs:[eax]004B4680 648920 mov fs:[eax], esp004B4683 B201 mov dl, $01* Reference to class TStringList|004B4685 A1AC634100 mov eax, dword ptr [$004163AC]* Reference to: System.TObject.Create(TObject;Boolean);|004B468A E8F9EFF4FF call 00403688004B468F 8BD8 mov ebx, eax* Possible String Reference to: 'time.txt'|004B4691 BA44474B00 mov edx, $004B4744004B4696 8BC3 mov eax, ebx004B4698 8B08 mov ecx, [eax]* Reference to method TStringList.LoadFromFile(string)|004B469A FF5168 call dword ptr [ecx+$68]004B469D 8D45FC lea eax, [ebp-$04]004B46A0 50 push eax004B46A1 8D55F8 lea edx, [ebp-$08]004B46A4 8BC3 mov eax, ebx004B46A6 8B08 mov ecx, [eax]* Reference to method TStringList.GetTextStr()|004B46A8 FF511C call dword ptr [ecx+$1C]004B46AB 8B55F8 mov edx, [ebp-$08]004B46AE B858474B00 mov eax, $004B4758* Reference to: System.@LStrPos;|004B46B3 E8E403F5FF call 00404A9C004B46B8 48 dec eax004B46B9 50 push eax004B46BA 8D55F4 lea edx, [ebp-$0C]004B46BD 8BC3 mov eax, ebx004B46BF 8B08 mov ecx, [eax]* Reference to method TStringList.GetTextStr()|004B46C1 FF511C call dword ptr [ecx+$1C]004B46C4 8B45F4 mov eax, [ebp-$0C]004B46C7 BA01000000 mov edx, $00000001004B46CC 59 pop ecx* Reference to: System.@LStrCopy;|004B46CD E8E602F5FF call 004049B8004B46D2 8B45FC mov eax, [ebp-$04]* Reference to: Unit_00407B48.Proc_00408E14|004B46D5 E83A47F5FF call 00408E14004B46DA 8BD0 mov edx, eax* Reference to control TForm2.Timer2 : TTimer|004B46DC 8B86F8020000 mov eax, [esi+$02F8]* Reference to: ExtCtrls.TTimer.SetInterval(TTimer;Cardinal);|004B46E2 E8894FF8FF call 00439670004B46E7 8BC3 mov eax, ebx* Reference to: System.TObject.Free(TObject);|004B46E9 E8CAEFF4FF call 004036B8004B46EE 33C0 xor eax, eax* Reference to GlobalVar_004BBFBC|004B46F0 A3BCBF4B00 mov dword ptr [$004BBFBC], eax004B46F5 33C0 xor eax, eax* Reference to GlobalVar_004BBFC0|004B46F7 A3C0BF4B00 mov dword ptr [$004BBFC0], eax004B46FC C705C8BF4B0001000000 mov dword ptr [$004BBFC8], $00000001* Reference to control TForm2.Comp : TCommPortDriver|004B4706 8B8614030000 mov eax, [esi+$0314]* Reference to: CPDrv.Proc_004B3054|004B470C E843E9FFFF call 004B3054004B4711 33C0 xor eax, eax004B4713 5A pop edx004B4714 59 pop ecx004B4715 59 pop ecx004B4716 648910 mov fs:[eax], edx****** FINALLY|* Possible String Reference to: '^[嬪]?|004B4719 6833474B00 push $004B4733004B471E 8D45F4 lea eax, [ebp-$0C]004B4721 BA03000000 mov edx, $00000003* Reference to: System.@LStrArrayClr(void;void;Integer);|004B4726 E8A1FDF4FF call 004044CC004B472B C3 ret* Reference to: System.@HandleFinally;|004B472C E91BF7F4FF jmp 00403E4C004B4731 EBEB jmp 004B471E****** END|004B4733 5E pop esi004B4734 5B pop ebx004B4735 8BE5 mov esp, ebp004B4737 5D pop ebp004B4738 C3 ret*)end;procedure TForm2.ComPReceiveData(Sender : TObject);begin(*004B39A4 55 push ebp004B39A5 8BEC mov ebp, esp004B39A7 6A00 push $00004B39A9 6A00 push $00004B39AB 6A00 push $00004B39AD 6A00 push $00004B39AF 53 push ebx004B39B0 56 push esi004B39B1 57 push edi004B39B2 8BF1 mov esi, ecx004B39B4 8BD8 mov ebx, eax004B39B6 33C0 xor eax, eax004B39B8 55 push ebp004B39B9 68CA3A4B00 push $004B3ACA***** TRY|004B39BE 64FF30 push dword ptr fs:[eax]004B39C1 648920 mov fs:[eax], esp004B39C4 33C0 xor eax, eax004B39C6 55 push ebp* Possible String Reference to: '轭'|004B39C7 68A53A4B00 push $004B3AA5***** TRY|004B39CC 64FF30 push dword ptr fs:[eax]004B39CF 648920 mov fs:[eax], esp004B39D2 8D45FC lea eax, [ebp-$04]004B39D5 BA1E000000 mov edx, $0000001E* Reference to: System.@LStrSetLength;|004B39DA E80511F5FF call 00404AE4004B39DF 6A05 push $05* Reference to: kernel32.Sleep()|004B39E1 E8FAA3F5FF call 0040DDE0004B39E6 8B45FC mov eax, [ebp-$04]* Reference to: System.@LStrToPChar(String)AnsiChar;|004B39E9 E86A0FF5FF call 00404958004B39EE 8BD0 mov edx, eax004B39F0 8BC6 mov eax, esi004B39F2 B91E000000 mov ecx, $0000001E* Reference to: System.Move(void;void;void;void;Integer);|004B39F7 E8B0EFF4FF call 004029AC004B39FC 8B55FC mov edx, [ebp-$04]* Possible String Reference to: ' '|004B39FF B8E43A4B00 mov eax, $004B3AE4* Reference to: System.@LStrPos;|004B3A04 E89310F5FF call 00404A9C004B3A09 8BF0 mov esi, eax004B3A0B 68B8BF4B00 push $004BBFB8004B3A10 B907000000 mov ecx, $00000007004B3A15 8BD6 mov edx, esi004B3A17 8B45FC mov eax, [ebp-$04]* Reference to: System.@LStrCopy;|004B3A1A E8990FF5FF call 004049B8004B3A1F 8D55F8 lea edx, [ebp-$08]004B3A22 A1B8BF4B00 mov eax, dword ptr [$004BBFB8]* Reference to: Unit_00407B48.Proc_00408A94|004B3A27 E86850F5FF call 00408A94004B3A2C 8B55F8 mov edx, [ebp-$08]004B3A2F B8B8BF4B00 mov eax, $004BBFB8* Reference to: System.@LStrAsg(void;void;void;void);|004B3A34 E8C30AF5FF call 004044FC004B3A39 8D45F4 lea eax, [ebp-$0C]004B3A3C 8B0DB8BF4B00 mov ecx, [$004BBFB8]* Possible String Reference to: 'ReceiveData: '|004B3A42 BAF03A4B00 mov edx, $004B3AF0* Reference to: System.@LStrCat3;|004B3A47 E8600DF5FF call 004047AC004B3A4C 8B55F4 mov edx, [ebp-$0C]* Reference to control TForm2.Memo1 : TMemo|004B3A4F 8B8310030000 mov eax, [ebx+$0310]* Reference to field TMemo.Lines : TStrings|004B3A55 8B8020020000 mov eax, [eax+$0220]004B3A5B 8B08 mov ecx, [eax]* Reference to method TStrings.Add(string)|004B3A5D FF5138 call dword ptr [ecx+$38]004B3A60 833DB8BF4B0000 cmp dword ptr [$004BBFB8], +$00004B3A67 7422 jz 004B3A8B004B3A69 A1B8BF4B00 mov eax, dword ptr [$004BBFB8]* Reference to: Unit_00407B48.Proc_00408E14|004B3A6E E8A153F5FF call 00408E14004B3A73 8D55F0 lea edx, [ebp-$10]* Reference to: Unit_00407B48.Proc_00408DB0|004B3A76 E83553F5FF call 00408DB0004B3A7B 8B55F0 mov edx, [ebp-$10]* Reference to control TForm2.Label6 : TLabel|004B3A7E 8B830C030000 mov eax, [ebx+$030C]* Reference to: Controls.TControl.SetText(TControl;TCaption);|004B3A84 E8CFE1F8FF call 00441C58004B3A89 EB10 jmp 004B3A9B* Reference to control TForm2.Label6 : TLabel|004B3A8B 8B830C030000 mov eax, [ebx+$030C]* Possible String Reference to: '错误'|004B3A91 BA083B4B00 mov edx, $004B3B08* Reference to: Controls.TControl.SetText(TControl;TCaption);|004B3A96 E8BDE1F8FF call 00441C58004B3A9B 33C0 xor eax, eax004B3A9D 5A pop edx004B3A9E 59 pop ecx004B3A9F 59 pop ecx004B3AA0 648910 mov fs:[eax], edx004B3AA3 EB0A jmp 004B3AAF* Reference to: System.@HandleAnyException;|004B3AA5 E9EE00F5FF jmp 00403B98* Reference to: System.@DoneExcept;|004B3AAA E85104F5FF call 00403F00****** END|004B3AAF 33C0 xor eax, eax004B3AB1 5A pop edx004B3AB2 59 pop ecx004B3AB3 59 pop ecx004B3AB4 648910 mov fs:[eax], edx****** FINALLY|004B3AB7 68D13A4B00 push $004B3AD1004B3ABC 8D45F0 lea eax, [ebp-$10]004B3ABF BA04000000 mov edx, $00000004* Reference to: System.@LStrArrayClr(void;void;Integer);|004B3AC4 E8030AF5FF call 004044CC004B3AC9 C3 ret* Reference to: System.@HandleFinally;|004B3ACA E97D03F5FF jmp 00403E4C004B3ACF EBEB jmp 004B3ABC****** END|004B3AD1 5F pop edi004B3AD2 5E pop esi004B3AD3 5B pop ebx004B3AD4 8BE5 mov esp, ebp004B3AD6 5D pop ebp004B3AD7 C20400 ret $0004*)end;procedure TForm2.FormClose(Sender : TObject);begin(*004B4624 53 push ebx004B4625 56 push esi004B4626 8BF1 mov esi, ecx004B4628 8BD8 mov ebx, eax004B462A 33D2 xor edx, edx* Reference to control TForm2.Timer2 : TTimer|004B462C 8B83F8020000 mov eax, [ebx+$02F8]* Reference to: ExtCtrls.TTimer.SetEnabled(TTimer;Boolean);|004B4632 E82950F8FF call 00439660* Reference to control TForm2.Comp : TCommPortDriver|004B4637 8B8314030000 mov eax, [ebx+$0314]* Reference to: CPDrv.Proc_004B3054|004B463D E812EAFFFF call 004B3054* Reference to control TForm2.Comp : TCommPortDriver|004B4642 8B8314030000 mov eax, [ebx+$0314]* Reference to: System.TObject.Free(TObject);|004B4648 E86BF0F4FF call 004036B8004B464D C60602 mov byte ptr [esi], $02004B4650 8BC3 mov eax, ebx* Reference to: Forms.TCustomForm.Release(TCustomForm);|004B4652 E8019FFAFF call 0045E558004B4657 5E pop esi004B4658 5B pop ebx004B4659 C3 ret*)end;procedure TForm2.Bt_DisComportClick(Sender : TObject);begin(** Reference to control TForm2.Comp : TCommPortDriver|004B465C 8B8014030000 mov eax, [eax+$0314]* Reference to: CPDrv.Proc_004B3054|004B4662 E8EDE9FFFF call 004B3054004B4667 C3 ret*)end;procedure TForm2.Button1Click(Sender : TObject);begin(*004B475C 56 push esi* Reference to pointer to GlobalVar_004BBF94|004B475D A140A34B00 mov eax, dword ptr [$004BA340]004B4762 8B00 mov eax, [eax]* Reference to control Label2 : TLabel|004B4764 8B80FC020000 mov eax, [eax+$02FC]004B476A BA94474B00 mov edx, $004B4794* Reference to: Controls.TControl.SetText(TControl;TCaption);|004B476F E8E4D4F8FF call 00441C58* Reference to pointer to GlobalVar_004BBFE0|004B4774 A12CA54B00 mov eax, dword ptr [$004BA52C]004B4779 8B00 mov eax, [eax]* Reference to field GlobalVar_004BBFE0.OFFS_0344|004B477B 8B8044030000 mov eax, [eax+$0344]004B4781 66BEEBFF mov si, $FFEB* Reference to: System.@CallDynaInst;|004B4785 E82AF1F4FF call 004038B4004B478A 5E pop esi004B478B C3 ret*)end;procedure TForm2.Proc_004B3B10(Sender : TObject);begin(*004B3B10 55 push ebp004B3B11 8BEC mov ebp, esp004B3B13 B92D000000 mov ecx, $0000002D004B3B18 6A00 push $00004B3B1A 6A00 push $00004B3B1C 49 dec ecx004B3B1D 75F9 jnz 004B3B18004B3B1F 53 push ebx004B3B20 56 push esi004B3B21 57 push edi004B3B22 8BD8 mov ebx, eax* Reference to pointer to GlobalVar_004BBFE0|004B3B24 8B352CA54B00 mov esi, [$004BA52C]004B3B2A 33C0 xor eax, eax004B3B2C 55 push ebp004B3B2D 6877454B00 push $004B4577***** TRY|004B3B32 64FF30 push dword ptr fs:[eax]004B3B35 648920 mov fs:[eax], esp004B3B38 33D2 xor edx, edx* Reference to control TForm2.Timer2 : TTimer|004B3B3A 8B83F8020000 mov eax, [ebx+$02F8]* Reference to: ExtCtrls.TTimer.SetEnabled(TTimer;Boolean);|004B3B40 E81B5BF8FF call 00439660004B3B45 33D2 xor edx, edx* Reference to control TForm2.Shape2 : TShape|004B3B47 8B8328030000 mov eax, [ebx+$0328]* Reference to: Controls.TControl.SetVisible(TControl;Boolean);|004B3B4D E8F6DFF8FF call 00441B48004B3B52 33D2 xor edx, edx* Reference to control TForm2.Shape3 : TShape|004B3B54 8B832C030000 mov eax, [ebx+$032C]* Reference to: Controls.TControl.SetVisible(TControl;Boolean);|004B3B5A E8E9DFF8FF call 00441B48004B3B5F 8D55D8 lea edx, [ebp-$28]* Reference to pointer to GlobalVar_004BBF94|004B3B62 A140A34B00 mov eax, dword ptr [$004BA340]004B3B67 8B00 mov eax, [eax]* Reference to control Timer2 : TTimer|004B3B69 8B80F8020000 mov eax, [eax+$02F8]* Reference to: Controls.TControl.GetText(TControl):TCaption;|004B3B6F E8B4E0F8FF call 00441C28004B3B74 8B55D8 mov edx, [ebp-$28]* Reference to control TForm2.Label3 : TLabel|004B3B77 8B8300030000 mov eax, [ebx+$0300]* Reference to: Controls.TControl.SetText(TControl;TCaption);|004B3B7D E8D6E0F8FF call 00441C58004B3B82 8D55D4 lea edx, [ebp-$2C]004B3B85 8B06 mov eax, [esi]004B3B87 8B8070030000 mov eax, [eax+$0370]* Reference to: Controls.TControl.GetText(TControl):TCaption;|004B3B8D E896E0F8FF call 00441C28004B3B92 8B45D4 mov eax, [ebp-$2C]* Reference to: Unit_00407B48.Proc_00408E14|004B3B95 E87A52F5FF call 00408E14004B3B9A 8945E8 mov [ebp-$18], eax004B3B9D 8D55D0 lea edx, [ebp-$30]* Reference to pointer to GlobalVar_004BBF94|004B3BA0 A140A34B00 mov eax, dword ptr [$004BA340]004B3BA5 8B00 mov eax, [eax]* Reference to control Label2 : TLabel|004B3BA7 8B80FC020000 mov eax, [eax+$02FC]* Reference to: Controls.TControl.GetText(TControl):TCaption;|004B3BAD E876E0F8FF call 00441C28004B3BB2 8B45D0 mov eax, [ebp-$30]* Reference to: Unit_00407B48.Proc_00408E14|004B3BB5 E85A52F5FF call 00408E14004B3BBA 8945EC mov [ebp-$14], eax004B3BBD 833DBCBF4B001E cmp dword ptr [$004BBFBC], +$1E004B3BC4 7F18 jnle 004B3BDE004B3BC6 833DBCBF4B0014 cmp dword ptr [$004BBFBC], +$14004B3BCD 7C0F jl 004B3BDE004B3BCF B201 mov dl, $01* Reference to control TForm2.Shape3 : TShape|004B3BD1 8B832C030000 mov eax, [ebx+$032C]* Reference to: Controls.TControl.SetVisible(TControl;Boolean);|004B3BD7 E86CDFF8FF call 00441B48004B3BDC EB0D jmp 004B3BEB004B3BDE B201 mov dl, $01* Reference to control TForm2.Shape2 : TShape|004B3BE0 8B8328030000 mov eax, [ebx+$0328]* Reference to: Controls.TControl.SetVisible(TControl;Boolean);|004B3BE6 E85DDFF8FF call 00441B48004B3BEB 833DBCBF4B0000 cmp dword ptr [$004BBFBC], +$00004B3BF2 8D55CC lea edx, [ebp-$34]* Reference to control TForm2.Label6 : TLabel|004B3BF5 8B830C030000 mov eax, [ebx+$030C]* Reference to: Controls.TControl.GetText(TControl):TCaption;|004B3BFB E828E0F8FF call 00441C28004B3C00 8B45CC mov eax, [ebp-$34]* Reference to: Unit_00407B48.Proc_00408E14|004B3C03 E80C52F5FF call 00408E14004B3C08 3DA00F0000 cmp eax, $00000FA0004B3C0D 7D6E jnl 004B3C7D004B3C0F 8D55C8 lea edx, [ebp-$38]* Reference to control TForm2.Label6 : TLabel|004B3C12 8B830C030000 mov eax, [ebx+$030C]* Reference to: Controls.TControl.GetText(TControl):TCaption;|004B3C18 E80BE0F8FF call 00441C28004B3C1D 8B45C8 mov eax, [ebp-$38]* Reference to: Unit_00407B48.Proc_00408E14|004B3C20 E8EF51F5FF call 00408E14004B3C25 3D2C010000 cmp eax, $0000012C004B3C2A 7E51 jle 004B3C7D004B3C2C 8D55C4 lea edx, [ebp-$3C]004B3C2F A1BCBF4B00 mov eax, dword ptr [$004BBFBC]* Reference to: Unit_00407B48.Proc_00408DB0|004B3C34 E87751F5FF call 00408DB0004B3C39 8B55C4 mov edx, [ebp-$3C]* Reference to control TForm2.Label5 : TLabel|004B3C3C 8B8308030000 mov eax, [ebx+$0308]* Reference to: Controls.TControl.SetText(TControl;TCaption);|004B3C42 E811E0F8FF call 00441C58004B3C47 833DBCBF4B0019 cmp dword ptr [$004BBFBC], +$19004B3C4E 7C25 jl 004B3C75004B3C50 833DBCBF4B0023 cmp dword ptr [$004BBFBC], +$23004B3C57 7F1C jnle 004B3C75004B3C59 8D55C0 lea edx, [ebp-$40]* Reference to control TForm2.Label6 : TLabel|004B3C5C 8B830C030000 mov eax, [ebx+$030C]* Reference to: Controls.TControl.GetText(TControl):TCaption;|004B3C62 E8C1DFF8FF call 00441C28004B3C67 8B45C0 mov eax, [ebp-$40]* Reference to: Unit_00407B48.Proc_00408E14|004B3C6A E8A551F5FF call 00408E14004B3C6F 0105C0BF4B00 add [$004BBFC0], eax004B3C75 FF05BCBF4B00 inc dword ptr [$004BBFBC]004B3C7B EB0E jmp 004B3C8B004B3C7D 33C0 xor eax, eax* Reference to GlobalVar_004BBFBC|004B3C7F A3BCBF4B00 mov dword ptr [$004BBFBC], eax004B3C84 33C0 xor eax, eax* Reference to GlobalVar_004BBFC0|004B3C86 A3C0BF4B00 mov dword ptr [$004BBFC0], eax004B3C8B 833DBCBF4B0023 cmp dword ptr [$004BBFBC], +$23004B3C92 0F85A2050000 jnz 004B423A004B3C98 A1C0BF4B00 mov eax, dword ptr [$004BBFC0]004B3C9D B90A000000 mov ecx, $0000000A004B3CA2 99 cdq004B3CA3 F7F9 idiv ecx * Reference to GlobalVar_004BBFC4|004B3CA5 A3C4BF4B00 mov dword ptr [$004BBFC4], eax004B3CAA 8D55FC lea edx, [ebp-$04]004B3CAD A1C4BF4B00 mov eax, dword ptr [$004BBFC4]* Reference to: Unit_00407B48.Proc_00408DB0|004B3CB2 E8F950F5FF call 00408DB0004B3CB7 8D45BC lea eax, [ebp-$44]004B3CBA 50 push eax004B3CBB B904000000 mov ecx, $00000004004B3CC0 BA01000000 mov edx, $00000001004B3CC5 8B45FC mov eax, [ebp-$04]* Reference to: System.@LStrCopy;|004B3CC8 E8EB0CF5FF call 004049B8004B3CCD 8B55BC mov edx, [ebp-$44]* Reference to control TForm2.Label1 : TLabel|004B3CD0 8B83F4020000 mov eax, [ebx+$02F4]* Reference to: Controls.TControl.SetText(TControl;TCaption);|004B3CD6 E87DDFF8FF call 00441C58004B3CDB 33C9 xor ecx, ecx004B3CDD B201 mov dl, $01* Reference to class myt|004B3CDF A1F0384B00 mov eax, dword ptr [$004B38F0]* Reference to: Classes.TThread.Create(TThread;boolean;Boolean);|004B3CE4 E893C8F6FF call 0042057C* Possible String Reference to: '00'|004B3CE9 BA90454B00 mov edx, $004B4590* Reference to control TForm2.Label5 : TLabel|004B3CEE 8B8308030000 mov eax, [ebx+$0308]* Reference to: Controls.TControl.SetText(TControl;TCaption);|004B3CF4 E85FDFF8FF call 00441C58004B3CF9 FF45EC inc dword ptr [ebp-$14]004B3CFC 8D55F0 lea edx, [ebp-$10]* Reference to pointer to GlobalVar_004BBF94|004B3CFF A140A34B00 mov eax, dword ptr [$004BA340]004B3D04 8B00 mov eax, [eax]* Reference to control Timer2 : TTimer|004B3D06 8B80F8020000 mov eax, [eax+$02F8]* Reference to: Controls.TControl.GetText(TControl):TCaption;|004B3D0C E817DFF8FF call 00441C28004B3D11 8D55B8 lea edx, [ebp-$48]004B3D14 8B45EC mov eax, [ebp-$14]* Reference to: Unit_00407B48.Proc_00408DB0|004B3D17 E89450F5FF call 00408DB0004B3D1C 8B55B8 mov edx, [ebp-$48]* Reference to pointer to GlobalVar_004BBF94|004B3D1F A140A34B00 mov eax, dword ptr [$004BA340]004B3D24 8B00 mov eax, [eax]* Reference to control Label2 : TLabel|004B3D26 8B80FC020000 mov eax, [eax+$02FC]* Reference to: Controls.TControl.SetText(TControl;TCaption);|004B3D2C E827DFF8FF call 00441C58004B3D31 8D55B4 lea edx, [ebp-$4C]004B3D34 8B45EC mov eax, [ebp-$14]* Reference to: Unit_00407B48.Proc_00408DB0|004B3D37 E87450F5FF call 00408DB0004B3D3C 8B55B4 mov edx, [ebp-$4C]* Reference to control TForm2.Label9 : TLabel|004B3D3F 8B831C030000 mov eax, [ebx+$031C]* Reference to: Controls.TControl.SetText(TControl;TCaption);|004B3D45 E80EDFF8FF call 00441C58004B3D4A 8D55B0 lea edx, [ebp-$50]* Reference to control TForm2.Label1 : TLabel|004B3D4D 8B83F4020000 mov eax, [ebx+$02F4]* Reference to: Controls.TControl.GetText(TControl):TCaption;|004B3D53 E8D0DEF8FF call 00441C28004B3D58 8B45B0 mov eax, [ebp-$50]* Reference to: Unit_00407B48.Proc_00408E14|004B3D5B E8B450F5FF call 00408E14004B3D60 8B16 mov edx, [esi]004B3D62 8B4DEC mov ecx, [ebp-$14]004B3D65 89848AB0030000 mov [edx+ecx*4+$03B0], eax004B3D6C 8B06 mov eax, [esi]004B3D6E 8B805C030000 mov eax, [eax+$035C]* Reference to: DB.TDataSet.Close(TDataSet);|004B3D74 E85786FCFF call 0047C3D0004B3D79 8B06 mov eax, [esi]004B3D7B 8B805C030000 mov eax, [eax+$035C]* Reference to: DB.TDataSet.Open(TDataSet);|004B3D81 E83E86FCFF call 0047C3C4004B3D86 33C0 xor eax, eax004B3D88 8945DC mov [ebp-$24], eax004B3D8B 8B06 mov eax, [esi]004B3D8D 8B805C030000 mov eax, [eax+$035C]004B3D93 8B10 mov edx, [eax]004B3D95 FF924C010000 call dword ptr [edx+$014C]004B3D9B 8BF8 mov edi, eax004B3D9D 85FF test edi, edi004B3D9F 0F8E9C000000 jle 004B3E41004B3DA5 8D4DA0 lea ecx, [ebp-$60]004B3DA8 8B06 mov eax, [esi]004B3DAA 8B805C030000 mov eax, [eax+$035C]* Possible String Reference to: 'ls'|004B3DB0 BA9C454B00 mov edx, $004B459C* Reference to: ADODB.TParameters.GetParamValue(TParameters;WideString):Variant;| or: DB.TParams.GetParamValue(TParams;AnsiString):Variant;| or: DB.TDataSet.GetFieldValue(TDataSet;AnsiString):Variant;|004B3DB5 E80695FCFF call 0047D2C0004B3DBA 8D55A0 lea edx, [ebp-$60]004B3DBD 8D45F8 lea eax, [ebp-$08]* Reference to: System.@DispInvoke;cdecl;| or: System.@VarClear(Variant;Variant);| or: System.@VarCopy(Variant;Variant;Variant;Variant);| or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);| or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);| or: System.@VarToInt(Variant;Variant):Integer;|004B3DC0 E81716F5FF call 004053DC004B3DC5 8D4D90 lea ecx, [ebp-$70]004B3DC8 8B06 mov eax, [esi]004B3DCA 8B805C030000 mov eax, [eax+$035C]* Possible String Reference to: 'ddid'|004B3DD0 BAA8454B00 mov edx, $004B45A8* Reference to: ADODB.TParameters.GetParamValue(TParameters;WideString):Variant;| or: DB.TParams.GetParamValue(TParams;AnsiString):Variant;| or: DB.TDataSet.GetFieldValue(TDataSet;AnsiString):Variant;|004B3DD5 E8E694FCFF call 0047D2C0004B3DDA 8D4590 lea eax, [ebp-$70]* Reference to: System.@DispInvoke;cdecl;| or: System.@VarClear(Variant;Variant);| or: System.@VarCopy(Variant;Variant;Variant;Variant);| or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);| or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);| or: System.@VarToInt(Variant;Variant):Integer;|004B3DDD E8D215F5FF call 004053B4004B3DE2 8945E4 mov [ebp-$1C], eax004B3DE5 8D558C lea edx, [ebp-$74]* Reference to pointer to GlobalVar_004BBF94|004B3DE8 A140A34B00 mov eax, dword ptr [$004BA340]004B3DED 8B00 mov eax, [eax]* Reference to control Timer2 : TTimer|004B3DEF 8B80F8020000 mov eax, [eax+$02F8]* Reference to: Controls.TControl.GetText(TControl):TCaption;|004B3DF5 E82EDEF8FF call 00441C28004B3DFA 8B558C mov edx, [ebp-$74]004B3DFD 8B45F8 mov eax, [ebp-$08]* Reference to: System.@LStrCmp;|004B3E00 E89F0AF5FF call 004048A4004B3E05 7522 jnz 004B3E29004B3E07 8D5588 lea edx, [ebp-$78]004B3E0A 8B06 mov eax, [esi]004B3E0C 8B8064030000 mov eax, [eax+$0364]* Reference to: Controls.TControl.GetText(TControl):TCaption;|004B3E12 E811DEF8FF call 00441C28004B3E17 8B4588 mov eax, [ebp-$78]* Reference to: Unit_00407B48.Proc_00408E14|004B3E1A E8F54FF5FF call 00408E14004B3E1F 3B45E4 cmp eax, [ebp-$1C]004B3E22 7505 jnz 004B3E29004B3E24 FF45DC inc dword ptr [ebp-$24]004B3E27 EB04 jmp 004B3E2D004B3E29 8345DC00 add dword ptr [ebp-$24], +$00004B3E2D 8B06 mov eax, [esi]004B3E2F 8B805C030000 mov eax, [eax+$035C]* Reference to: DB.TDataSet.Next(TDataSet);|004B3E35 E83EADFCFF call 0047EB78004B3E3A 4F dec edi004B3E3B 0F8564FFFFFF jnz 004B3DA5004B3E41 837DDC01 cmp dword ptr [ebp-$24], +$01004B3E45 0F855A010000 jnz 004B3FA5004B3E4B 8B06 mov eax, [esi]004B3E4D 8B805C030000 mov eax, [eax+$035C]* Reference to: DB.TDataSet.Close(TDataSet);|004B3E53 E87885FCFF call 0047C3D0004B3E58 8B06 mov eax, [esi]004B3E5A 8B805C030000 mov eax, [eax+$035C]* Reference to: DB.TDataSet.Open(TDataSet);|004B3E60 E85F85FCFF call 0047C3C4004B3E65 8B06 mov eax, [esi]004B3E67 8B805C030000 mov eax, [eax+$035C]004B3E6D 8B10 mov edx, [eax]004B3E6F FF924C010000 call dword ptr [edx+$014C]004B3E75 8BF8 mov edi, eax004B3E77 85FF test edi, edi004B3E79 0F8E26010000 jle 004B3FA5004B3E7F 8D8D78FFFFFF lea ecx, [ebp+$FFFFFF78]004B3E85 8B06 mov eax, [esi]004B3E87 8B805C030000 mov eax, [eax+$035C]* Possible String Reference to: 'ls'|004B3E8D BA9C454B00 mov edx, $004B459C* Reference to: ADODB.TParameters.GetParamValue(TParameters;WideString):Variant;| or: DB.TParams.GetParamValue(TParams;AnsiString):Variant;| or: DB.TDataSet.GetFieldValue(TDataSet;AnsiString):Variant;|004B3E92 E82994FCFF call 0047D2C0004B3E97 8D9578FFFFFF lea edx, [ebp+$FFFFFF78]004B3E9D 8D45F4 lea eax, [ebp-$0C]* Reference to: System.@DispInvoke;cdecl;| or: System.@VarClear(Variant;Variant);| or: System.@VarCopy(Variant;Variant;Variant;Variant);| or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);| or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);| or: System.@VarToInt(Variant;Variant):Integer;|004B3EA0 E83715F5FF call 004053DC004B3EA5 8D8D68FFFFFF lea ecx, [ebp+$FFFFFF68]004B3EAB 8B06 mov eax, [esi]004B3EAD 8B805C030000 mov eax, [eax+$035C]* Possible String Reference to: 'ddid'|004B3EB3 BAA8454B00 mov edx, $004B45A8* Reference to: ADODB.TParameters.GetParamValue(TParameters;WideString):Variant;| or: DB.TParams.GetParamValue(TParams;AnsiString):Variant;| or: DB.TDataSet.GetFieldValue(TDataSet;AnsiString):Variant;|004B3EB8 E80394FCFF call 0047D2C0004B3EBD 8D8568FFFFFF lea eax, [ebp+$FFFFFF68]* Reference to: System.@DispInvoke;cdecl;| or: System.@VarClear(Variant;Variant);| or: System.@VarCopy(Variant;Variant;Variant;Variant);| or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);| or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);| or: System.@VarToInt(Variant;Variant):Integer;|004B3EC3 E8EC14F5FF call 004053B4004B3EC8 8945E0 mov [ebp-$20], eax004B3ECB 8D9564FFFFFF lea edx, [ebp+$FFFFFF64]* Reference to pointer to GlobalVar_004BBF94|004B3ED1 A140A34B00 mov eax, dword ptr [$004BA340]004B3ED6 8B00 mov eax, [eax]* Reference to control Timer2 : TTimer|004B3ED8 8B80F8020000 mov eax, [eax+$02F8]* Reference to: Controls.TControl.GetText(TControl):TCaption;|004B3EDE E845DDF8FF call 00441C28004B3EE3 8B9564FFFFFF mov edx, [ebp+$FFFFFF64]004B3EE9 8B45F4 mov eax, [ebp-$0C]* Reference to: System.@LStrCmp;|004B3EEC E8B309F5FF call 004048A4004B3EF1 0F859A000000 jnz 004B3F91004B3EF7 8D9560FFFFFF lea edx, [ebp+$FFFFFF60]004B3EFD 8B06 mov eax, [esi]004B3EFF 8B8064030000 mov eax, [eax+$0364]* Reference to: Controls.TControl.GetText(TControl):TCaption;|004B3F05 E81EDDF8FF call 00441C28004B3F0A 8B8560FFFFFF mov eax, [ebp+$FFFFFF60]* Reference to: Unit_00407B48.Proc_00408E14|004B3F10 E8FF4EF5FF call 00408E14004B3F15 3B45E0 cmp eax, [ebp-$20]004B3F18 7577 jnz 004B3F91004B3F1A 8B06 mov eax, [esi]004B3F1C 8B805C030000 mov eax, [eax+$035C]* Reference to: DB.TDataSet.Edit(TDataSet);|004B3F22 E8C5ACFCFF call 0047EBEC004B3F27 8D954CFFFFFF lea edx, [ebp+$FFFFFF4C]* Reference to control TForm2.Label1 : TLabel|004B3F2D 8B83F4020000 mov eax, [ebx+$02F4]* Reference to: Controls.TControl.GetText(TControl):TCaption;|004B3F33 E8F0DCF8FF call 00441C28004B3F38 8B854CFFFFFF mov eax, [ebp+$FFFFFF4C]* Reference to: Unit_00407B48.Proc_00408E14|004B3F3E E8D14EF5FF call 00408E14004B3F43 8BD0 mov edx, eax004B3F45 8D8550FFFFFF lea eax, [ebp+$FFFFFF50]004B3F4B B1FC mov cl, $FC* Reference to: System.@DispInvoke;cdecl;| or: System.@VarClear(Variant;Variant);| or: System.@VarCopy(Variant;Variant;Variant;Variant);| or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);| or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);| or: System.@VarToInt(Variant;Variant):Integer;|004B3F4D E8AA14F5FF call 004053FC004B3F52 8D8550FFFFFF lea eax, [ebp+$FFFFFF50]004B3F58 50 push eax004B3F59 8D9544FFFFFF lea edx, [ebp+$FFFFFF44]004B3F5F 8B45EC mov eax, [ebp-$14]* Reference to: Unit_00407B48.Proc_00408DB0|004B3F62 E8494EF5FF call 00408DB0004B3F67 8B8D44FFFFFF mov ecx, [ebp+$FFFFFF44]004B3F6D 8D8548FFFFFF lea eax, [ebp+$FFFFFF48]* Possible String Reference to: 'zl'|004B3F73 BAB8454B00 mov edx, $004B45B8* Reference to: System.@LStrCat3;|004B3F78 E82F08F5FF call 004047AC004B3F7D 8B9548FFFFFF mov edx, [ebp+$FFFFFF48]004B3F83 8B06 mov eax, [esi]004B3F85 8B805C030000 mov eax, [eax+$035C]004B3F8B 59 pop ecx* Reference to: ADODB.TParameters.SetParamValue(TParameters;WideString;Variant;Variant);| or: DB.TParams.SetParamValue(TParams;AnsiString;Variant;Variant);| or: DB.TDataSet.SetFieldValue(TDataSet;AnsiString;Variant;Variant);|004B3F8C E84794FCFF call 0047D3D8004B3F91 8B06 mov eax, [esi]004B3F93 8B805C030000 mov eax, [eax+$035C]* Reference to: DB.TDataSet.Next(TDataSet);|004B3F99 E8DAABFCFF call 0047EB78004B3F9E 4F dec edi004B3F9F 0F85DAFEFFFF jnz 004B3E7F004B3FA5 8B06 mov eax, [esi]004B3FA7 8B805C030000 mov eax, [eax+$035C]* Reference to: DB.TDataSet.Close(TDataSet);|004B3FAD E81E84FCFF call 0047C3D0004B3FB2 8B06 mov eax, [esi]004B3FB4 8B805C030000 mov eax, [eax+$035C]* Reference to: DB.TDataSet.Open(TDataSet);|004B3FBA E80584FCFF call 0047C3C4004B3FBF 8B06 mov eax, [esi]004B3FC1 8B805C030000 mov eax, [eax+$035C]* Reference to: DB.TDataSet.Last(TDataSet);|004B3FC7 E86CA9FCFF call 0047E938004B3FCC 837DDC00 cmp dword ptr [ebp-$24], +$00004B3FD0 0F8507020000 jnz 004B41DD004B3FD6 8B06 mov eax, [esi]004B3FD8 8B805C030000 mov eax, [eax+$035C]* Reference to: DB.TDataSet.Append(TDataSet);|004B3FDE E84DADFCFF call 0047ED30004B3FE3 8B06 mov eax, [esi]004B3FE5 8B805C030000 mov eax, [eax+$035C]* Reference to: DB.TDataSet.Edit(TDataSet);|004B3FEB E8FCABFCFF call 0047EBEC004B3FF0 8D9530FFFFFF lea edx, [ebp+$FFFFFF30]* Reference to pointer to GlobalVar_004BBF94|004B3FF6 A140A34B00 mov eax, dword ptr [$004BA340]004B3FFB 8B00 mov eax, [eax]* Reference to control Timer2 : TTimer|004B3FFD 8B80F8020000 mov eax, [eax+$02F8]* Reference to: Controls.TControl.GetText(TControl):TCaption;|004B4003 E820DCF8FF call 00441C28004B4008 8B9530FFFFFF mov edx, [ebp+$FFFFFF30]004B400E 8D8534FFFFFF lea eax, [ebp+$FFFFFF34]* Reference to: System.@DispInvoke;cdecl;| or: System.@VarClear(Variant;Variant);| or: System.@VarCopy(Variant;Variant;Variant;Variant);| or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);| or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);| or: System.@VarToInt(Variant;Variant):Integer;|004B4014 E82714F5FF call 00405440004B4019 8D8D34FFFFFF lea ecx, [ebp+$FFFFFF34]004B401F 8B06 mov eax, [esi]004B4021 8B805C030000 mov eax, [eax+$035C]* Possible String Reference to: 'ls'|004B4027 BA9C454B00 mov edx, $004B459C* Reference to: ADODB.TParameters.SetParamValue(TParameters;WideString;Variant;Variant);| or: DB.TParams.SetParamValue(TParams;AnsiString;Variant;Variant);| or: DB.TDataSet.SetFieldValue(TDataSet;AnsiString;Variant;Variant);|004B402C E8A793FCFF call 0047D3D8004B4031 8D951CFFFFFF lea edx, [ebp+$FFFFFF1C]* Reference to control TForm2.Label1 : TLabel|004B4037 8B83F4020000 mov eax, [ebx+$02F4]* Reference to: Controls.TControl.GetText(TControl):TCaption;|004B403D E8E6DBF8FF call 00441C28004B4042 8B851CFFFFFF mov eax, [ebp+$FFFFFF1C]* Reference to: Unit_00407B48.Proc_00408E14|004B4048 E8C74DF5FF call 00408E14004B404D 8BD0 mov edx, eax004B404F 8D8520FFFFFF lea eax, [ebp+$FFFFFF20]004B4055 B1FC mov cl, $FC* Reference to: System.@DispInvoke;cdecl;| or: System.@VarClear(Variant;Variant);| or: System.@VarCopy(Variant;Variant;Variant;Variant);| or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);| or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);| or: System.@VarToInt(Variant;Variant):Integer;|004B4057 E8A013F5FF call 004053FC004B405C 8D8520FFFFFF lea eax, [ebp+$FFFFFF20]004B4062 50 push eax004B4063 8D9514FFFFFF lea edx, [ebp+$FFFFFF14]004B4069 8B45EC mov eax, [ebp-$14]* Reference to: Unit_00407B48.Proc_00408DB0|004B406C E83F4DF5FF call 00408DB0004B4071 8B8D14FFFFFF mov ecx, [ebp+$FFFFFF14]004B4077 8D8518FFFFFF lea eax, [ebp+$FFFFFF18]* Possible String Reference to: 'zl'|004B407D BAB8454B00 mov edx, $004B45B8* Reference to: System.@LStrCat3;|004B4082 E82507F5FF call 004047AC004B4087 8B9518FFFFFF mov edx, [ebp+$FFFFFF18]004B408D 8B06 mov eax, [esi]004B408F 8B805C030000 mov eax, [eax+$035C]004B4095 59 pop ecx* Reference to: ADODB.TParameters.SetParamValue(TParameters;WideString;Variant;Variant);| or: DB.TParams.SetParamValue(TParams;AnsiString;Variant;Variant);| or: DB.TDataSet.SetFieldValue(TDataSet;AnsiString;Variant;Variant);|004B4096 E83D93FCFF call 0047D3D8004B409B 8D9500FFFFFF lea edx, [ebp+$FFFFFF00]004B40A1 8B06 mov eax, [esi]004B40A3 8B8064030000 mov eax, [eax+$0364]* Reference to: Controls.TControl.GetText(TControl):TCaption;|004B40A9 E87ADBF8FF call 00441C28004B40AE 8B9500FFFFFF mov edx, [ebp+$FFFFFF00]004B40B4 8D8504FFFFFF lea eax, [ebp+$FFFFFF04]* Reference to: System.@DispInvoke;cdecl;| or: System.@VarClear(Variant;Variant);| or: System.@VarCopy(Variant;Variant;Variant;Variant);| or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);| or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);| or: System.@VarToInt(Variant;Variant):Integer;|004B40BA E88113F5FF call 00405440004B40BF 8D8D04FFFFFF lea ecx, [ebp+$FFFFFF04]004B40C5 8B06 mov eax, [esi]004B40C7 8B805C030000 mov eax, [eax+$035C]* Possible String Reference to: 'ddid'|004B40CD BAA8454B00 mov edx, $004B45A8* Reference to: ADODB.TParameters.SetParamValue(TParameters;WideString;Variant;Variant);| or: DB.TParams.SetParamValue(TParams;AnsiString;Variant;Variant);| or: DB.TDataSet.SetFieldValue(TDataSet;AnsiString;Variant;Variant);|004B40D2 E80193FCFF call 0047D3D8004B40D7 8D95ECFEFFFF lea edx, [ebp+$FFFFFEEC]004B40DD 8B06 mov eax, [esi]004B40DF 8B809C030000 mov eax, [eax+$039C]* Reference to: Controls.TControl.GetText(TControl):TCaption;|004B40E5 E83EDBF8FF call 00441C28004B40EA 8B95ECFEFFFF mov edx, [ebp+$FFFFFEEC]004B40F0 8D85F0FEFFFF lea eax, [ebp+$FFFFFEF0]* Reference to: System.@DispInvoke;cdecl;| or: System.@VarClear(Variant;Variant);| or: System.@VarCopy(Variant;Variant;Variant;Variant);| or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);| or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);| or: System.@VarToInt(Variant;Variant):Integer;|004B40F6 E84513F5FF call 00405440004B40FB 8D8DF0FEFFFF lea ecx, [ebp+$FFFFFEF0]004B4101 8B06 mov eax, [esi]004B4103 8B805C030000 mov eax, [eax+$035C]* Possible String Reference to: 'cjy'|004B4109 BAC4454B00 mov edx, $004B45C4* Reference to: ADODB.TParameters.SetParamValue(TParameters;WideString;Variant;Variant);| or: DB.TParams.SetParamValue(TParams;AnsiString;Variant;Variant);| or: DB.TDataSet.SetFieldValue(TDataSet;AnsiString;Variant;Variant);|004B410E E8C592FCFF call 0047D3D8004B4113 8D95D8FEFFFF lea edx, [ebp+$FFFFFED8]004B4119 8B06 mov eax, [esi]004B411B 8B803C030000 mov eax, [eax+$033C]* Reference to: Controls.TControl.GetText(TControl):TCaption;|004B4121 E802DBF8FF call 00441C28004B4126 8B95D8FEFFFF mov edx, [ebp+$FFFFFED8]004B412C 8D85DCFEFFFF lea eax, [ebp+$FFFFFEDC]* Reference to: System.@DispInvoke;cdecl;| or: System.@VarClear(Variant;Variant);| or: System.@VarCopy(Variant;Variant;Variant;Variant);| or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);| or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);| or: System.@VarToInt(Variant;Variant):Integer;|004B4132 E80913F5FF call 00405440004B4137 8D8DDCFEFFFF lea ecx, [ebp+$FFFFFEDC]004B413D 8B06 mov eax, [esi]004B413F 8B805C030000 mov eax, [eax+$035C]* Possible String Reference to: 'cc'|004B4145 BAD0454B00 mov edx, $004B45D0* Reference to: ADODB.TParameters.SetParamValue(TParameters;WideString;Variant;Variant);| or: DB.TParams.SetParamValue(TParams;AnsiString;Variant;Variant);| or: DB.TDataSet.SetFieldValue(TDataSet;AnsiString;Variant;Variant);|004B414A E88992FCFF call 0047D3D8004B414F 8D95C4FEFFFF lea edx, [ebp+$FFFFFEC4]004B4155 8B06 mov eax, [esi]004B4157 8B8038030000 mov eax, [eax+$0338]* Reference to: Controls.TControl.GetText(TControl):TCaption;|004B415D E8C6DAF8FF call 00441C28004B4162 8B95C4FEFFFF mov edx, [ebp+$FFFFFEC4]004B4168 8D85C8FEFFFF lea eax, [ebp+$FFFFFEC8]* Reference to: System.@DispInvoke;cdecl;| or: System.@VarClear(Variant;Variant);| or: System.@VarCopy(Variant;Variant;Variant;Variant);| or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);| or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);| or: System.@VarToInt(Variant;Variant):Integer;|004B416E E8CD12F5FF call 00405440004B4173 8D8DC8FEFFFF lea ecx, [ebp+$FFFFFEC8]004B4179 8B06 mov eax, [esi]004B417B 8B805C030000 mov eax, [eax+$035C]* Possible String Reference to: 'nhxm'|004B4181 BADC454B00 mov edx, $004B45DC* Reference to: ADODB.TParameters.SetParamValue(TParameters;WideString;Variant;Variant);| or: DB.TParams.SetParamValue(TParams;AnsiString;Variant;Variant);| or: DB.TDataSet.SetFieldValue(TDataSet;AnsiString;Variant;Variant);|004B4186 E84D92FCFF call 0047D3D8* Reference to: Unit_00407B48.Proc_0040AADC|004B418B E84C69F5FF call 0040AADC004B4190 8D85B4FEFFFF lea eax, [ebp+$FFFFFEB4]* Reference to: System.@DispInvoke;cdecl;| or: System.@VarClear(Variant;Variant);| or: System.@VarCopy(Variant;Variant;Variant;Variant);| or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);| or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);| or: System.@VarToInt(Variant;Variant):Integer;|004B4196 E88D12F5FF call 00405428004B419B 8D8DB4FEFFFF lea ecx, [ebp+$FFFFFEB4]004B41A1 8B06 mov eax, [esi]004B41A3 8B805C030000 mov eax, [eax+$035C]* Possible String Reference to: 'sgrq'|004B41A9 BAEC454B00 mov edx, $004B45EC* Reference to: ADODB.TParameters.SetParamValue(TParameters;WideString;Variant;Variant);| or: DB.TParams.SetParamValue(TParams;AnsiString;Variant;Variant);| or: DB.TDataSet.SetFieldValue(TDataSet;AnsiString;Variant;Variant);|004B41AE E82592FCFF call 0047D3D8004B41B3 8B06 mov eax, [esi]004B41B5 8B805C030000 mov eax, [eax+$035C]004B41BB 8B10 mov edx, [eax]004B41BD FF9248020000 call dword ptr [edx+$0248]004B41C3 8B06 mov eax, [esi]004B41C5 8B805C030000 mov eax, [eax+$035C]* Reference to: DB.TDataSet.Close(TDataSet);|004B41CB E80082FCFF call 0047C3D0004B41D0 8B06 mov eax, [esi]004B41D2 8B805C030000 mov eax, [eax+$035C]* Reference to: DB.TDataSet.Open(TDataSet);|004B41D8 E8E781FCFF call 0047C3C4004B41DD 833DBCBF4B001E cmp dword ptr [$004BBFBC], +$1E004B41E4 7C2B jl 004B4211004B41E6 8D95B0FEFFFF lea edx, [ebp+$FFFFFEB0]* Reference to control TForm2.Label6 : TLabel|004B41EC 8B830C030000 mov eax, [ebx+$030C]* Reference to: Controls.TControl.GetText(TControl):TCaption;|004B41F2 E831DAF8FF call 00441C28004B41F7 8B85B0FEFFFF mov eax, [ebp+$FFFFFEB0]* Reference to: Unit_00407B48.Proc_00408E14|004B41FD E8124CF5FF call 00408E14004B4202 3DC8000000 cmp eax, $000000C8004B4207 7E08 jle 004B4211004B4209 FF05BCBF4B00 inc dword ptr [$004BBFBC]004B420F EB29 jmp 004B423A004B4211 33C0 xor eax, eax* Reference to GlobalVar_004BBFBC|004B4213 A3BCBF4B00 mov dword ptr [$004BBFBC], eax004B4218 33C0 xor eax, eax* Reference to GlobalVar_004BBFC0|004B421A A3C0BF4B00 mov dword ptr [$004BBFC0], eax004B421F 33FF xor edi, edi* Reference to TApplication instance|004B4221 A1B4A34B00 mov eax, dword ptr [$004BA3B4]004B4226 8B00 mov eax, [eax]* Reference to: Forms.TApplication.ProcessMessages(TApplication);|004B4228 E877D5FAFF call 004617A4004B422D 6A1E push $1E* Reference to: kernel32.Sleep()|004B422F E8AC9BF5FF call 0040DDE0004B4234 47 inc edi004B4235 83FF14 cmp edi, +$14004B4238 7CE7 jl 004B4221004B423A 8D95ACFEFFFF lea edx, [ebp+$FFFFFEAC]* Reference to pointer to GlobalVar_004BBF94|004B4240 A140A34B00 mov eax, dword ptr [$004BA340]004B4245 8B00 mov eax, [eax]* Reference to control Memo1 : TMemo|004B4247 8B8010030000 mov eax, [eax+$0310]* Reference to: Controls.TControl.GetText(TControl):TCaption;|004B424D E8D6D9F8FF call 00441C28004B4252 8B85ACFEFFFF mov eax, [ebp+$FFFFFEAC]* Reference to: Unit_00407B48.Proc_00408E14|004B4258 E8B74BF5FF call 00408E14004B425D 8B55EC mov edx, [ebp-$14]004B4260 3B55E8 cmp edx, [ebp-$18]004B4263 0F8C64010000 jl 004B43CD004B4269 3B45EC cmp eax, [ebp-$14]004B426C 0F8F5B010000 jnle 004B43CD* Reference to control TForm2.Comp : TCommPortDriver|004B4272 8B8314030000 mov eax, [ebx+$0314]* Reference to: CPDrv.Proc_004B3054|004B4278 E8D7EDFFFF call 004B3054004B427D 33D2 xor edx, edx* Reference to control TForm2.Timer2 : TTimer|004B427F 8B83F8020000 mov eax, [ebx+$02F8]* Reference to: ExtCtrls.TTimer.SetEnabled(TTimer;Boolean);|004B4285 E8D653F8FF call 00439660004B428A 6A00 push $00004B428C 8D95A8FEFFFF lea edx, [ebp+$FFFFFEA8]* Reference to pointer to GlobalVar_004BBF94|004B4292 A140A34B00 mov eax, dword ptr [$004BA340]004B4297 8B00 mov eax, [eax]* Reference to control Timer2 : TTimer|004B4299 8B80F8020000 mov eax, [eax+$02F8]* Reference to: Controls.TControl.GetText(TControl):TCaption;|004B429F E884D9F8FF call 00441C28004B42A4 8D85A8FEFFFF lea eax, [ebp+$FFFFFEA8]* Possible String Reference to: '笼抽检完成,增加一只吗?'|004B42AA BAFC454B00 mov edx, $004B45FC* Reference to: System.@LStrCat;|004B42AF E8B404F5FF call 00404768004B42B4 8B85A8FEFFFF mov eax, [ebp+$FFFFFEA8]004B42BA 668B0D14464B00 mov cx, word ptr [$004B4614]004B42C1 B203 mov dl, $03* Reference to: Dialogs.Proc_0043AD94|004B42C3 E8CC6AF8FF call 0043AD94004B42C8 83F806 cmp eax, +$06004B42CB 0F85D4000000 jnz 004B43A5004B42D1 33C0 xor eax, eax* Reference to GlobalVar_004BBFBC|004B42D3 A3BCBF4B00 mov dword ptr [$004BBFBC], eax004B42D8 33C0 xor eax, eax* Reference to GlobalVar_004BBFC0|004B42DA A3C0BF4B00 mov dword ptr [$004BBFC0], eax004B42DF 8D95A4FEFFFF lea edx, [ebp+$FFFFFEA4]004B42E5 8B45EC mov eax, [ebp-$14]004B42E8 40 inc eax* Reference to: Unit_00407B48.Proc_00408DB0|004B42E9 E8C24AF5FF call 00408DB0004B42EE 8B95A4FEFFFF mov edx, [ebp+$FFFFFEA4]* Reference to pointer to GlobalVar_004BBF94|004B42F4 A140A34B00 mov eax, dword ptr [$004BA340]004B42F9 8B00 mov eax, [eax]* Reference to control Memo1 : TMemo|004B42FB 8B8010030000 mov eax, [eax+$0310]* Reference to: Controls.TControl.SetText(TControl;TCaption);|004B4301 E852D9F8FF call 00441C58004B4306 8D95A0FEFFFF lea edx, [ebp+$FFFFFEA0]004B430C 8B45EC mov eax, [ebp-$14]* Reference to: Unit_00407B48.Proc_00408DB0|004B430F E89C4AF5FF call 00408DB0004B4314 8B95A0FEFFFF mov edx, [ebp+$FFFFFEA0]* Reference to control TForm2.Label9 : TLabel|004B431A 8B831C030000 mov eax, [ebx+$031C]* Reference to: Controls.TControl.SetText(TControl;TCaption);|004B4320 E833D9F8FF call 00441C58004B4325 8D959CFEFFFF lea edx, [ebp+$FFFFFE9C]004B432B 8B45EC mov eax, [ebp-$14]* Reference to: Unit_00407B48.Proc_00408DB0|004B432E E87D4AF5FF call 00408DB0004B4333 8B959CFEFFFF mov edx, [ebp+$FFFFFE9C]* Reference to pointer to GlobalVar_004BBF94|004B4339 A140A34B00 mov eax, dword ptr [$004BA340]004B433E 8B00 mov eax, [eax]* Reference to control Label2 : TLabel|004B4340 8B80FC020000 mov eax, [eax+$02FC]* Reference to: Controls.TControl.SetText(TControl;TCaption);|004B4346 E80DD9F8FF call 00441C58* Reference to control TForm2.Comp : TCommPortDriver|004B434B 8B8314030000 mov eax, [ebx+$0314]* Reference to : TCommPortDriver._PROC_004B2F94()|004B4351 E83EECFFFF call 004B2F94004B4356 B201 mov dl, $01* Reference to control TForm2.Timer2 : TTimer|004B4358 8B83F8020000 mov eax, [ebx+$02F8]* Reference to: ExtCtrls.TTimer.SetEnabled(TTimer;Boolean);|004B435E E8FD52F8FF call 00439660004B4363 8D9598FEFFFF lea edx, [ebp+$FFFFFE98]* Reference to control TForm2.Label1 : TLabel|004B4369 8B83F4020000 mov eax, [ebx+$02F4]* Reference to: Controls.TControl.GetText(TControl):TCaption;|004B436F E8B4D8F8FF call 00441C28004B4374 8B8598FEFFFF mov eax, [ebp+$FFFFFE98]* Reference to: Unit_00407B48.Proc_00408E14|004B437A E8954AF5FF call 00408E14004B437F 8B16 mov edx, [esi]004B4381 8B4DEC mov ecx, [ebp-$14]004B4384 89848AB0030000 mov [edx+ecx*4+$03B0], eax* Reference to control TForm2.Comp : TCommPortDriver|004B438B 8B8314030000 mov eax, [ebx+$0314]* Reference to: CPDrv.Proc_004B3054|004B4391 E8BEECFFFF call 004B3054004B4396 33D2 xor edx, edx* Reference to control TForm2.Timer2 : TTimer|004B4398 8B83F8020000 mov eax, [ebx+$02F8]* Reference to: ExtCtrls.TTimer.SetEnabled(TTimer;Boolean);|004B439E E8BD52F8FF call 00439660004B43A3 EB28 jmp 004B43CD* Reference to pointer to GlobalVar_004BBF94|004B43A5 A140A34B00 mov eax, dword ptr [$004BA340]004B43AA 8B00 mov eax, [eax]* Reference to control Label2 : TLabel|004B43AC 8B80FC020000 mov eax, [eax+$02FC]004B43B2 BA20464B00 mov edx, $004B4620* Reference to: Controls.TControl.SetText(TControl;TCaption);|004B43B7 E89CD8F8FF call 00441C58004B43BC 8B06 mov eax, [esi]004B43BE 8B8044030000 mov eax, [eax+$0344]004B43C4 66BEEBFF mov si, $FFEB* Reference to: System.@CallDynaInst;|004B43C8 E8E7F4F4FF call 004038B4004B43CD A1ACBF4B00 mov eax, dword ptr [$004BBFAC]004B43D2 80785700 cmp byte ptr [eax+$57], $00004B43D6 740F jz 004B43E7004B43D8 B201 mov dl, $01* Reference to control TForm2.Timer2 : TTimer|004B43DA 8B83F8020000 mov eax, [ebx+$02F8]* Reference to: ExtCtrls.TTimer.SetEnabled(TTimer;Boolean);|004B43E0 E87B52F8FF call 00439660004B43E5 EB0D jmp 004B43F4004B43E7 33D2 xor edx, edx* Reference to control TForm2.Timer2 : TTimer|004B43E9 8B83F8020000 mov eax, [ebx+$02F8]* Reference to: ExtCtrls.TTimer.SetEnabled(TTimer;Boolean);|004B43EF E86C52F8FF call 00439660004B43F4 33C0 xor eax, eax004B43F6 5A pop edx004B43F7 59 pop ecx004B43F8 59 pop ecx004B43F9 648910 mov fs:[eax], edx****** FINALLY|004B43FC 6881454B00 push $004B4581004B4401 8D8598FEFFFF lea eax, [ebp+$FFFFFE98]* Reference to: System.@LStrClr(void;void);|004B4407 E89C00F5FF call 004044A8004B440C 8D859CFEFFFF lea eax, [ebp+$FFFFFE9C]004B4412 BA03000000 mov edx, $00000003* Reference to: System.@LStrArrayClr(void;void;Integer);|004B4417 E8B000F5FF call 004044CC004B441C 8D85A8FEFFFF lea eax, [ebp+$FFFFFEA8]004B4422 BA03000000 mov edx, $00000003* Reference to: System.@LStrArrayClr(void;void;Integer);|004B4427 E8A000F5FF call 004044CC004B442C 8D85B4FEFFFF lea eax, [ebp+$FFFFFEB4]* Reference to: System.@VarClr(Variant;Variant);|004B4432 E87510F5FF call 004054AC004B4437 8D85C4FEFFFF lea eax, [ebp+$FFFFFEC4]* Reference to: System.@LStrClr(void;void);|004B443D E86600F5FF call 004044A8004B4442 8D85C8FEFFFF lea eax, [ebp+$FFFFFEC8]* Reference to: System.@VarClr(Variant;Variant);|004B4448 E85F10F5FF call 004054AC004B444D 8D85D8FEFFFF lea eax, [ebp+$FFFFFED8]* Reference to: System.@LStrClr(void;void);|004B4453 E85000F5FF call 004044A8004B4458 8D85DCFEFFFF lea eax, [ebp+$FFFFFEDC]* Reference to: System.@VarClr(Variant;Variant);|004B445E E84910F5FF call 004054AC004B4463 8D85ECFEFFFF lea eax, [ebp+$FFFFFEEC]* Reference to: System.@LStrClr(void;void);|004B4469 E83A00F5FF call 004044A8004B446E 8D85F0FEFFFF lea eax, [ebp+$FFFFFEF0]* Reference to: System.@VarClr(Variant;Variant);|004B4474 E83310F5FF call 004054AC004B4479 8D8500FFFFFF lea eax, [ebp+$FFFFFF00]* Reference to: System.@LStrClr(void;void);|004B447F E82400F5FF call 004044A8004B4484 8D8504FFFFFF lea eax, [ebp+$FFFFFF04]* Reference to: System.@VarClr(Variant;Variant);|004B448A E81D10F5FF call 004054AC004B448F 8D8514FFFFFF lea eax, [ebp+$FFFFFF14]004B4495 BA02000000 mov edx, $00000002* Reference to: System.@LStrArrayClr(void;void;Integer);|004B449A E82D00F5FF call 004044CC004B449F 8D851CFFFFFF lea eax, [ebp+$FFFFFF1C]* Reference to: System.@LStrClr(void;void);|004B44A5 E8FEFFF4FF call 004044A8004B44AA 8D8520FFFFFF lea eax, [ebp+$FFFFFF20]* Reference to: System.@VarClr(Variant;Variant);|004B44B0 E8F70FF5FF call 004054AC004B44B5 8D8530FFFFFF lea eax, [ebp+$FFFFFF30]* Reference to: System.@LStrClr(void;void);|004B44BB E8E8FFF4FF call 004044A8004B44C0 8D8534FFFFFF lea eax, [ebp+$FFFFFF34]* Reference to: System.@VarClr(Variant;Variant);|004B44C6 E8E10FF5FF call 004054AC004B44CB 8D8544FFFFFF lea eax, [ebp+$FFFFFF44]004B44D1 BA02000000 mov edx, $00000002* Reference to: System.@LStrArrayClr(void;void;Integer);|004B44D6 E8F1FFF4FF call 004044CC004B44DB 8D854CFFFFFF lea eax, [ebp+$FFFFFF4C]* Reference to: System.@LStrClr(void;void);|004B44E1 E8C2FFF4FF call 004044A8004B44E6 8D8550FFFFFF lea eax, [ebp+$FFFFFF50]* Reference to: System.@VarClr(Variant;Variant);|004B44EC E8BB0FF5FF call 004054AC004B44F1 8D8560FFFFFF lea eax, [ebp+$FFFFFF60]004B44F7 BA02000000 mov edx, $00000002* Reference to: System.@LStrArrayClr(void;void;Integer);|004B44FC E8CBFFF4FF call 004044CC004B4501 8D8568FFFFFF lea eax, [ebp+$FFFFFF68]* Reference to object Variant|004B4507 8B1504114000 mov edx, [$00401104]004B450D B902000000 mov ecx, $00000002* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);|004B4512 E89D0AF5FF call 00404FB4004B4517 8D4588 lea eax, [ebp-$78]004B451A BA02000000 mov edx, $00000002* Reference to: System.@LStrArrayClr(void;void;Integer);|004B451F E8A8FFF4FF call 004044CC004B4524 8D4590 lea eax, [ebp-$70]* Reference to object Variant|004B4527 8B1504114000 mov edx, [$00401104]004B452D B902000000 mov ecx, $00000002* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);|004B4532 E87D0AF5FF call 00404FB4004B4537 8D45B0 lea eax, [ebp-$50]* Reference to: System.@LStrClr(void;void);|004B453A E869FFF4FF call 004044A8004B453F 8D45B4 lea eax, [ebp-$4C]004B4542 BA03000000 mov edx, $00000003* Reference to: System.@LStrArrayClr(void;void;Integer);|004B4547 E880FFF4FF call 004044CC004B454C 8D45C0 lea eax, [ebp-$40]* Reference to: System.@LStrClr(void;void);|004B454F E854FFF4FF call 004044A8004B4554 8D45C4 lea eax, [ebp-$3C]* Reference to: System.@LStrClr(void;void);|004B4557 E84CFFF4FF call 004044A8004B455C 8D45C8 lea eax, [ebp-$38]004B455F BA05000000 mov edx, $00000005* Reference to: System.@LStrArrayClr(void;void;Integer);|004B4564 E863FFF4FF call 004044CC004B4569 8D45F0 lea eax, [ebp-$10]004B456C BA04000000 mov edx, $00000004* Reference to: System.@LStrArrayClr(void;void;Integer);|004B4571 E856FFF4FF call 004044CC004B4576 C3 ret* Reference to: System.@HandleFinally;|004B4577 E9D0F8F4FF jmp 00403E4C004B457C E980FEFFFF jmp 004B4401****** END|004B4581 5F pop edi004B4582 5E pop esi004B4583 5B pop ebx004B4584 8BE5 mov esp, ebp004B4586 5D pop ebp004B4587 C3 ret*)end;end.

额的神哪!

delphi 支持汇编啊 asm

明显是反编译出来的......

严重晕倒~

这些估计要自己看懂然后手工翻了。工作量不小啊。

asmend;

知道了那个功能干嘛用,自己写

多人接受答案了。