btnDisconnect: TButton;

　

edtLocal: TEdit;

　

Label1: TLabel;

　

Label2: TLabel;

　

edtRemote: TEdit;

　

procedure btnConnectClick(Sender: TObject);

　

procedure btnDisconnectClick(Sender: TObject);

　

private

　　

{ Private declarations }

　

public

　　

{ Public declarations }

　

end;

var

　

frmMain: TfrmMain;

　

implementation

　

{$R *.dfm}

　

procedure TfrmMain.btnConnectClick(Sender: TObject);

var