unit ClassFactoryServerMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StrUtils,
  StdCtrls, uROClient, uROBINMessage, uROClientIntf, uROServer, uROWinMessageServer,
   uROIndyTCPServer, uROPoweredByRemObjectsButton;

type
  TClassFactoryServerMainForm = class(TForm)
    ROMessage: TROBINMessage;
    Button1: TButton;
    ROServer: TROIndyTCPServer;
    ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton;
    procedure Button1Click(Sender: TObject);
  private

  protected

  public

  end;

var
  ClassFactoryServerMainForm: TClassFactoryServerMainForm;

implementation


{$R *.DFM}

procedure TClassFactoryServerMainForm.Button1Click(Sender: TObject);
begin
  ROServer.Active := ROServer.Active XOR TRUE;

  Button1.Caption := IfThen(ROServer.Active,'Deactivate','Activate');
end;

end.