WSA* Funktionen

[Pseudemys Nelsoni]

hi,

ich habe einige Fragen zu den WSA Funktionen...

Bevor man eine Verbindung aufbaut muss man ja WSAStartUp aufrufen und "irgendwann" WSACLeanUp

doch habe ich kein plan wie ich das machen soll...sagen wir mal ich habe folgendes:

Delphi-Quellcode:

var
  Test1: MyTestConnect;
  Test2: MyTestConnect;

procedure Button1click;
begin
  Test1.connect;
end;

procedure Button2click;
begin
  Test2.connect;
end;

procedure Button3click;
begin
  Test1.disconnect;
end;

procedure Button4click;
begin
  Test2.disconnect;
end;

MyTestConnect ist meine Komponente, connect/disconnect sind ihre methoden.
Connect ruft "WSAStartUp" auf, disconnect dementsprechen "WSACleanUp"....

nun ist das prob wenn ich bei einer der instanzen "disconnect"(WSACleanUp) aufrufe dann werden doch automatisch auch die Verbindungen meiner anderen instanzen beendet oder?