procedure TIndeed_Server.OnExecute(AContext: TIdContext);
var
  Active_Client : TIndeed_Client;
begin
  Active_Client := TIndeed_Client(AContext.Data);

  while AContext.Connection.Connected do
  begin
    if not AContext.Connection.IOHandler.InputBufferIsEmpty then
    begin
      if not Terminated then
        Client_Command_Handler(Active_Client)
      else
        AContext.Connection.IOHandler.InputBuffer.Clear;
    end;

    AContext.Connection.IOHandler.CheckForDisconnect(False, True);
    AContext.Connection.CheckForGracefulDisconnect(False);
    SleepEx(1, true);
  end;
end

  if Assigned(fTCP_Server) then
  begin
    fTCP_Server.Active := false;
    FreeAndNil(fTCP_Server);
  end;