procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   ClientSocket1.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   ClientSocket1.Create(nil);
end;