unit Chat;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ComCtrls, Buttons;

type
  TChatForm=class(TForm)
    Label1: TLabel;
    UserView: TListView;
    MsgEdit: TEdit;
    SendBtn: TBitBtn;
    CloseBtn: TBitBtn;
    procedure CloseBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SendBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  ChatForm: TChatForm;


{This file is generated by DeDe v2.30 (c) 1999 by DaFixer}

implementation

{$R *.DFM}


procedure TChatForm.CloseBtnClick(Sender: TObject);
begin
{
004B2B24   55                     push    ebp
004B2B25   8BEC                   mov     ebp, esp
004B2B27   83C4F8                 add     esp, -$08
004B2B2A   8955F8                 mov     [ebp-$08], edx
004B2B2D   8945FC                 mov     [ebp-$04], eax
004B2B30   8B45FC                 mov     eax, [ebp-$04]
004B2B33   E86086F9FF             call    0044B198
004B2B38   59                     pop     ecx
004B2B39   59                     pop     ecx
004B2B3A   5D                     pop     ebp
004B2B3B   C3                     ret


}
 end ; 

procedure TChatForm.FormCreate(Sender: TObject);
begin
{
004B2DB4   55                     push    ebp
004B2DB5   8BEC                   mov     ebp, esp
004B2DB7   83C4F8                 add     esp, -$08
004B2DBA   8955F8                 mov     [ebp-$08], edx
004B2DBD   8945FC                 mov     [ebp-$04], eax
004B2DC0   A104CC4C00             mov     eax, dword ptr [$4CCC04]
004B2DC5   8B00                   mov     eax, [eax]
004B2DC7   8B55FC                 mov     edx, [ebp-$04]
004B2DCA   899098000000           mov     [eax+$0098], edx

* Possible String Reference to: "U‹ìƒÄðS3Û‰]ð‰Mø‰Uô‰Eü3ÀUh‡,K"
|
004B2DD0   C780940000001C2C4B00   mov     dword ptr [eax+$0094], $004B2C1C
004B2DDA   A104CC4C00             mov     eax, dword ptr [$4CCC04]
004B2DDF   8B00                   mov     eax, [eax]
004B2DE1   8B55FC                 mov     edx, [ebp-$04]
004B2DE4   899090000000           mov     [eax+$0090], edx

* Possible String Reference to: "U‹ìƒÄàS3Û‰]ä‰]à‰Mø‰Uè‰Eü3ÀUh¨-K"
|
004B2DEA   C7808C000000B02C4B00   mov     dword ptr [eax+$008C], $004B2CB0
004B2DF4   8B45FC                 mov     eax, [ebp-$04]
004B2DF7   8B80D4020000           mov     eax, [eax+$02D4]
004B2DFD   E87EEAFBFF             call    00471880
004B2E02   8BC8                   mov     ecx, eax
004B2E04   A154CC4C00             mov     eax, dword ptr [$4CCC54]
004B2E09   8B00                   mov     eax, [eax]
004B2E0B   8B80B4030000           mov     eax, [eax+$03B4]
004B2E11   BA40000000             mov     edx, $00000040
004B2E16   E865ABF8FF             call    0043D980
004B2E1B   59                     pop     ecx
004B2E1C   59                     pop     ecx
004B2E1D   5D                     pop     ebp
004B2E1E   C3                     ret


}
 end ; 

procedure TChatForm.FormShow(Sender: TObject);
begin
{
004B2E20   55                     push    ebp
004B2E21   8BEC                   mov     ebp, esp
004B2E23   83C4F8                 add     esp, -$08
004B2E26   8955F8                 mov     [ebp-$08], edx
004B2E29   8945FC                 mov     [ebp-$04], eax
004B2E2C   A104CC4C00             mov     eax, dword ptr [$4CCC04]
004B2E31   8B00                   mov     eax, [eax]
004B2E33   E8C4E6FDFF             call    004914FC
004B2E38   59                     pop     ecx
004B2E39   59                     pop     ecx
004B2E3A   5D                     pop     ebp
004B2E3B   C3                     ret


}
 end ; 

procedure TChatForm.SendBtnClick(Sender: TObject);
begin
{
004B2B3C   55                     push    ebp
004B2B3D   8BEC                   mov     ebp, esp
004B2B3F   83C4F0                 add     esp, -$10
004B2B42   53                     push    ebx
004B2B43   33C9                   xor     ecx, ecx
004B2B45   894DF0                 mov     [ebp-$10], ecx
004B2B48   894DF8                 mov     [ebp-$08], ecx
004B2B4B   8955F4                 mov     [ebp-$0C], edx
004B2B4E   8945FC                 mov     [ebp-$04], eax
004B2B51   33C0                   xor     eax, eax
004B2B53   55                     push    ebp

* Possible String Reference to: "é´õÿëè[‹å]Ã"
|
004B2B54   68E72B4B00             push    $004B2BE7

***** TRY
|
004B2B59   64FF30                 push    dword ptr fs:[eax]
004B2B5C   648920                 mov     fs:[eax], esp
004B2B5F   8B45FC                 mov     eax, [ebp-$04]
004B2B62   8B80C4020000           mov     eax, [eax+$02C4]
004B2B68   E84B67FBFF             call    004692B8
004B2B6D   85C0                   test    eax, eax
004B2B6F   751A                   jnz     004B2B8B
004B2B71   6A10                   push    $10

* Possible String Reference to: "Stop"
|
004B2B73   B9F42B4B00             mov     ecx, $004B2BF4

* Possible String Reference to: "No person selected for message."
|
004B2B78   BAFC2B4B00             mov     edx, $004B2BFC
004B2B7D   A1B4CE4C00             mov     eax, dword ptr [$4CCEB4]
004B2B82   8B00                   mov     eax, [eax]
004B2B84   E8F7BFF9FF             call    0044EB80
004B2B89   EB3E                   jmp     004B2BC9
004B2B8B   8B45FC                 mov     eax, [ebp-$04]
004B2B8E   8B80C4020000           mov     eax, [eax+$02C4]
004B2B94   E81F67FBFF             call    004692B8
004B2B99   8B4008                 mov     eax, [eax+$08]
004B2B9C   8D4DF8                 lea     ecx, [ebp-$08]
004B2B9F   33D2                   xor     edx, edx
004B2BA1   8B18                   mov     ebx, [eax]
004B2BA3   FF530C                 call    dword ptr [ebx+$0C]
004B2BA6   8D55F0                 lea     edx, [ebp-$10]
004B2BA9   8B45FC                 mov     eax, [ebp-$04]
004B2BAC   8B80CC020000           mov     eax, [eax+$02CC]
004B2BB2   E8D1EDF7FF             call    00431988
004B2BB7   8B4DF0                 mov     ecx, [ebp-$10]
004B2BBA   A104CC4C00             mov     eax, dword ptr [$4CCC04]
004B2BBF   8B00                   mov     eax, [eax]
004B2BC1   8B55F8                 mov     edx, [ebp-$08]
004B2BC4   E8CFE7FDFF             call    00491398
004B2BC9   33C0                   xor     eax, eax
004B2BCB   5A                     pop     edx
004B2BCC   59                     pop     ecx
004B2BCD   59                     pop     ecx
004B2BCE   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: "[‹å]Ã"
|
004B2BD1   68EE2B4B00             push    $004B2BEE
004B2BD6   8D45F0                 lea     eax, [ebp-$10]
004B2BD9   E8A210F5FF             call    00403C80
004B2BDE   8D45F8                 lea     eax, [ebp-$08]
004B2BE1   E89A10F5FF             call    00403C80
004B2BE6   C3                     ret

004B2BE7   E9B40AF5FF             jmp     004036A0
004B2BEC   EBE8                   jmp     004B2BD6

****** END
|
004B2BEE   5B                     pop     ebx
004B2BEF   8BE5                   mov     esp, ebp
004B2BF1   5D                     pop     ebp
004B2BF2   C3                     ret


}
 end ; 

end.
