Verbindung überprüfen

[Hobby-Programmierer]

Füge das noch ein.

Delphi-Quellcode:

const
  MY_PORT = 12345;
  MY_Adr = 'localhost';

procedure TForm1.FormCreate(Sender: TObject);
begin
  ClientSocket1.Port := MY_PORT; // Port eintragen
  ClientSocket1.Host := MY_Adr; // ...Serveradresse eintragen
  ServerSocket1.Port := MY_PORT; // Port eintragen
  ...
end;

Delphi-Quellcode:

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Clientsocket1.Free;
  Serversocket1.Free;
end;

Sollte nicht eigentlich die Form als Eigentümer für die Freigabe verantwortlich sein?