Я думаю здесь проверяется условия
procedure TfmStationRegister.edStationNameChange(Sender : TObject);
begin
(*
005667C8 55 push ebp
005667C9 8BEC mov ebp, esp
005667CB 6A00 push $00
005667CD 6A00 push $00
005667CF 53 push ebx
005667D0 8BD8 mov ebx, eax
005667D2 33C0 xor eax, eax
005667D4 55 push ebp
005667D5 6834685600 push $00566834
***** TRY
|
005667DA 64FF30 push dword ptr fs:[eax]
005667DD 648920 mov fs:[eax], esp
005667E0 8D55FC lea edx, [ebp-$04]
* Reference to control TfmStationRegister.edStationName : TEdit
|
005667E3 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
005667E9 E86A73EEFF call 0044DB58
005667EE 837DFC00 cmp dword ptr [ebp-$04], +$00
005667F2 7414 jz 00566808
005667F4 8D55F8 lea edx, [ebp-$08]
* Reference to control TfmStationRegister.edRegNumber : TEdit
|
005667F7 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
005667FD E85673EEFF call 0044DB58
00566802 837DF800 cmp dword ptr [ebp-$08], +$00
00566806 7504 jnz 0056680C
00566808 33D2 xor edx, edx
0056680A EB02 jmp 0056680E
0056680C B201 mov dl, $01
* Reference to control TfmStationRegister.btOk : TButton
|
0056680E 8B8300030000 mov eax, [ebx+$0300]
00566814 8B08 mov ecx, [eax]
* Reference to method TButton.SetEnabled(Boolean)
|
00566816 FF5164 call dword ptr [ecx+$64]
00566819 33C0 xor eax, eax
0056681B 5A pop edx
0056681C 59 pop ecx
0056681D 59 pop ecx
0056681E 648910 mov fs:[eax], edx
****** FINALLY
|
00566821 683B685600 push $0056683B
00566826 8D45F8 lea eax, [ebp-$08]
00566829 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0056682E E821E3E9FF call 00404B54
00566833 C3 ret
* Reference to: System.@HandleFinally;
|
00566834 E997DBE9FF jmp 004043D0
00566839 EBEB jmp 00566826
****** END
|
0056683B 5B pop ebx
0056683C 59 pop ecx
0056683D 59 pop ecx
0056683E 5D pop ebp
0056683F C3 ret
*)
end;
