UDP - Indy - Socket Error #10004

[NookShar]

Hallo,

ich habe ein kleines Problem mit folgendem Programm. Immer wenn ich es beende und vorher was übers Netzwerk gemacht habe (UDP verwendet) krieg ich beim beenden den Socketfehler #10004 ausgegeben.

Ich versuche dabei alle Verbindungen im FormClose zu deaktivieren. Aber auch wenn dies nicht geschieht kommt der Fehler. Wo drann kann das liegen und wie kann ich das vermeiden?

Delphi-Quellcode:

procedure TForm2.Button4Click(Sender: TObject);
begin
  if not IdUDPServer1.Active then
    IdUDPServer1.Active := true;
    
  with IdUDPClient1 do
  begin
    if not Active then
      Active := true;
    Broadcast(idIPWatch1.CurrentIP, 10025)
  end;

end;

procedure TForm2.IdUDPServer1UDPRead(Sender: TObject; AData: TBytes;
  ABinding: TIdSocketHandle);
begin
  ListBox1.Items.Add(Copy(BytesToString(Adata), 0, length(Adata)));
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  IdUDPClient1.Active := false;
  IdUDPServer1.Active := false;
  IdIPWatch1.Active := false;
end;

alle INDY Komponenten werden mit Active := false gestartet