TCP Server beenden -> Fehlermeldung

[Neutral General]

Sobald ich das Serverprogramm beende bekomme ich die Fehlermeldung :

Benachrichtigung über Debugger-Exception
-----------------------------------------------------------------------------------------
Im Projekt LAN-RPG.exe ist eine Exception der Klasse EIDClosedSocket aufgetreten. Meldung :
'Disconnected.'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
-----------------------------------------------------------------------------------------
OK HELP
-----------------------------------------------------------------------------------------


Das ist der Server :

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  IDTCPServer1.Active := true;
end;

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var data : String;
    Order: Integer;
begin
 with AThread.Connection do begin
   Caption := readln;
   Order := StrToInt(copy(Readln,1,pos('/',Readln)));
 end;
end;

Client :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if IDTCPClient1.Connected = false then begin
  IDTCPCLient1.Host := 'MICHI';
  IDTCPClient1.Connect();
 end;
  IDTCPClient1.WriteLn(IntToStr(LAN_CREATE) + '/' + Edit1.Text + '/' + Edit2.Text);
end;

[PierreB]

Vielleicht solltest du einfach im OnClose des Serverprogrammes die Verbindung trennen, also manuell.

Delphi-Quellcode:

procedure form1.OnClose (Sender: TObject);
begin
IDTCPServer1.Active := false;
end;