Indy 10 TCP stürzt beim schließen ab.

[Chrissi91]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  TCPServer.Active := True;
end;

procedure TForm1.TCPServerExecute(AContext: TIdContext);
var
  strlst: TStringList;
begin
  strlst:=TStringList.Create;
  try
    strlst.add('Hello from Basic Indy Server server.');
    with AContext.Connection do
      begin
        WriteRFCStrings(strlst);
        Disconnect;
      end;
  finally
    strlst.Free;
  end;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  TCPServer.Active := False;
end;

Das soll der Server sein. Das funktioniert soweit alles, hoffe ich mal. ^^
Wenn ich das ganze jetzt schließe, kommt eine Fehlermeldung (s. Anhang)