unit kmdu;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ipsock,dsocks, StdCtrls;

type
  Tkmdf = class(TForm)
    XLB: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    xipaddr:TINAddr;
    xsock:TSocket;
  end;

var
  kmdf: Tkmdf;

implementation    uses nukonx;

{$R *.DFM}

procedure Tkmdf.FormCreate(Sender: TObject);
begin
 newsocket(xsock);

end;

procedure Tkmdf.FormDestroy(Sender: TObject);
begin
 closesocket(xsock);
end;

procedure Tkmdf.FormActivate(Sender: TObject);
begin
  bindip(xsock,xipaddr);

end;

procedure Tkmdf.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action:= caFree;
end;

end.