欢迎光临，怎样把汇编程序转化为Delphi愿代码？例子如下：

下面是一个Delphi过程
procedure TMainForm.CopyToolButton1MouseUp(Sender : TObject);
begin
(*
00575C98   55                     push    ebp
00575C99   8BEC                   mov     ebp, esp
00575C9B   83C4E0                 add     esp, -$20
00575C9E   53                     push    ebx
00575C9F   56                     push    esi
00575CA0   57                     push    edi
00575CA1   8BD8                   mov     ebx, eax
00575CA3   80F901                 cmp     cl, $01
00575CA6   0F857F020000           jnz     00575F2B* Reference to control TMainForm.CopyToolButton1 : TToolButton
|
00575CAC   8B9398030000           mov     edx, [ebx+$0398]* Reference to MainForm
|
00575CB2   A1D84B5900             mov     eax, dword ptr [$00594BD8]* Reference to : TMainForm.DrawToolButtonClick()
|
00575CB7   E87067FEFF             call    0055C42C* Reference to field TMainForm.OFFS_0714
|
00575CBC   8BB314070000           mov     esi, [ebx+$0714]* Reference to control CopyToolButton2 : TToolButton
|
00575CC2   8B869C030000           mov     eax, [esi+$039C]
00575CC8   50                     push    eax* Reference to control CopyToolButton1 : TToolButton
|
00575CC9   8B8698030000           mov     eax, [esi+$0398]
00575CCF   50                     push    eax
00575CD0   6A00                   push    $00
00575CD2   6A00                   push    $00* Reference to: gdi32.CreateRectRgn()
|
00575CD4   E8EB23E9FF             call    004080C4* Reference to GlobalVar_00594E28
|
00575CD9   A3284E5900             mov     dword ptr [$00594E28], eax* Reference to field TMainForm.OFFS_0714
|
00575CDE   8BB314070000           mov     esi, [ebx+$0714]* Reference to control CopyToolButton2 : TToolButton
|
00575CE4   8B869C030000           mov     eax, [esi+$039C]
00575CEA   48                     dec     eax
00575CEB   50                     push    eax
00575CEC   8D45F0                 lea     eax, [ebp-$10]
00575CEF   50                     push    eax* Reference to control CopyToolButton1 : TToolButton
|
00575CF0   8B8E98030000           mov     ecx, [esi+$0398]
00575CF6   49                     dec     ecx
00575CF7   33D2                   xor     edx, edx
00575CF9   33C0                   xor     eax, eax