unit webmodule; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, LResources, HTTPDefs, websession, fpHTTP, fpWeb; type { TFPWebModule1 } TFPWebModule1 = class(TFPWebModule) procedure func1callRequest(Sender: TObject; ARequest: TRequest; AResponse: TResponse; var Handled: Boolean); private { private declarations } public { public declarations } end; var FPWebModule1: TFPWebModule1; implementation { TFPWebModule1 } procedure TFPWebModule1.func1callRequest(Sender: TObject; ARequest: TRequest; AResponse: TResponse; var Handled: Boolean); begin AResponse.Content := 'Hello World!'; Handled := true; end; initialization {$I webmodule.lrs} RegisterHTTPModule('TFPWebModule1', TFPWebModule1); end.