TChatForm = class(TForm)

StatusBar1: TStatusBar

MsgMemo: TMemo

btnSend: TButton

btnCancel: TButton

procedure btnSendClick(Sender: TObject)

procedure btnCancelClick(Sender: TObject)

procedure MsgMemoKeyDown(Sender: TObject var Key: Word

Shift: TShiftState)

private

{ Private declarations }

public

{ Public declarations }

FromIP,RemoteComputName:String

end - TChatForm = class(TForm)

　　StatusBar1: TStatusBar

　　MsgMemo: TMemo

　　btnSend: TButton

　　btnCancel: TButton

　　procedure btnSendClick(Sender: TObject)

　　procedure btnCancelClick(Sender: TObject)

　　procedure MsgMemoKeyDown(Sender: TObject　var Key: Word

　　　Shift: TShiftState)

　private

　　{ Private declarations }

　public

　　{ Public declarations }

　　FromIP,RemoteComputName:String

　end