kto mojet pomogite.
vot takoy kod est ego nado napisat na delphi
unit UnitMain;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmKey=class(TForm)
Edit1: TEdit;
Edit2: TEdit;
GroupBox1: TGroupBox;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
procedure FormCreate(Sender : TObject);
procedure Button1Click(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;

var
frmKey: TfrmKey;

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

implementation

{$R *.DFM}

procedure TfrmKey.FormCreate(Sender : TObject);
begin
(*
00457410 55 push ebp
00457411 8BEC mov ebp, esp
00457413 6A00 push $00
00457415 53 push ebx
00457416 8BD8 mov ebx, eax
00457418 33C0 xor eax, eax
0045741A 55 push ebp

* Possible String Reference to: 'йPЗъялр[Y]Г‹АU‹мj'
|
0045741B 685F744500 push $0045745F

***** TRY
|
00457420 64FF30 push dword ptr fs:[eax]
00457423 648920 mov fs:[eax], esp
00457426 8D45FC lea eax, [ebp-$04]

|
00457429 E872FAFFFF call 00456EA0
0045742E 8B55FC mov edx, [ebp-$04]

* Reference to control TfrmKey.Edit1 : TEdit
|
00457431 8B83F8020000 mov eax, [ebx+$02F8]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00457437 E820DBFDFF call 00434F5C
0045743C 33D2 xor edx, edx

* Reference to control TfrmKey.Edit2 : TEdit
|
0045743E 8B83FC020000 mov eax, [ebx+$02FC]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00457444 E813DBFDFF call 00434F5C
00457449 33C0 xor eax, eax
0045744B 5A pop edx
0045744C 59 pop ecx
0045744D 59 pop ecx
0045744E 648910 mov fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '[Y]Г‹АU‹мj'
|
00457451 6866744500 push $00457466
00457456 8D45FC lea eax, [ebp-$04]

* Reference to: System.@LStrClr(void;void);
|
00457459 E852CDFAFF call 004041B0
0045745E C3 ret


* Reference to: System.@HandleFinally;
|
0045745F E950C7FAFF jmp 00403BB4
00457464 EBF0 jmp 00457456

****** END
|
00457466 5B pop ebx
00457467 59 pop ecx
00457468 5D pop ebp
00457469 C3 ret

*)
end;

procedure TfrmKey.Button1Click(Sender : TObject);
begin
(*
0045746C 55 push ebp
0045746D 8BEC mov ebp, esp
0045746F 6A00 push $00
00457471 53 push ebx
00457472 8BD8 mov ebx, eax
00457474 33C0 xor eax, eax
00457476 55 push ebp

* Possible String Reference to: 'йзЖъялр[Y]Г'
|
00457477 68C8744500 push $004574C8

***** TRY
|
0045747C 64FF30 push dword ptr fs:[eax]
0045747F 648920 mov fs:[eax], esp
00457482 8D55FC lea edx, [ebp-$04]

* Reference to control TfrmKey.Edit2 : TEdit
|
00457485 8B83FC020000 mov eax, [ebx+$02FC]

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
0045748B E89CDAFDFF call 00434F2C
00457490 8B45FC mov eax, [ebp-$04]

* Reference to : TSetup._PROC_00456F14()
|
00457493 E87CFAFFFF call 00456F14
00457498 84C0 test al, al
0045749A 740C jz 004574A8

* Possible String Reference to: 'Ok'
|
0045749C B8DC744500 mov eax, $004574DC

* Reference to: Dialogs.ShowMessage(AnsiString);
|
004574A1 E8B204FDFF call 00427958
004574A6 EB0A jmp 004574B2
004574A8 B8E8744500 mov eax, $004574E8

* Reference to: Dialogs.ShowMessage(AnsiString);
|
004574AD E8A604FDFF call 00427958
004574B2 33C0 xor eax, eax
004574B4 5A pop edx
004574B5 59 pop ecx
004574B6 59 pop ecx
004574B7 648910 mov fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '[Y]Г'
|
004574BA 68CF744500 push $004574CF
004574BF 8D45FC lea eax, [ebp-$04]

* Reference to: System.@LStrClr(void;void);
|
004574C2 E8E9CCFAFF call 004041B0
004574C7 C3 ret


* Reference to: System.@HandleFinally;
|
004574C8 E9E7C6FAFF jmp 00403BB4
004574CD EBF0 jmp 004574BF

****** END
|
004574CF 5B pop ebx
004574D0 59 pop ecx
004574D1 5D pop ebp
004574D2 C3 ret

*)
end;

end.