unit DynamicRequestServerMain; interface uses Windows, Messages, SysUtils, Classes, Forms, Graphics, uROClient, uROServer, uROIndyTCPServer, uROIndyHTTPServer, uROBinMessage, Controls, uROPoweredByRemObjectsButton; type TDynamicRequestServerMainForm = class(TForm) BINMessage: TROBINMessage; IndyHttpServer: TROIndyHTTPServer; RoPoweredByRemObjectsButton1: TRoPoweredByRemObjectsButton; procedure FormCreate(Sender: TObject); private protected public end; var DynamicRequestServerMainForm : TDynamicRequestServerMainForm; implementation uses DynamicRequestLibrary_Intf; {$R *.DFM} procedure TDynamicRequestServerMainForm.FormCreate(Sender: TObject); begin IndyHttpServer.Active := True; end; end.