Indy Server Stoppen

[thetrue]

ich habs

Delphi-Quellcode:

{///////////////////////::::::C O N N E C T::::::////////////////////////}
procedure Tmain.menu_connectClick(Sender: TObject);
var
  i:Integer;
begin
    {connection to the server}
    if server.Active then
      begin
        i:=main.MDIChildCount;
        while main.MDIChildCount > 0 do
        begin
          main.MDIChildren[i].Free;
          i := i-1;
        end;
        server.Active := False;
        main.menu_connect.Caption := 'Connect';
      end
    else
      begin
        server.DefaultPort := ini.ReadInteger('Server', 'Port', 1984);
        server.Active := true;
        main.menu_connect.Caption := 'Disconnect';
      end;
end;

functioniert einbahnfrei
PS: habe Indy 9