program RegServer;

uses
  Forms,
  Windows,
  SysUtils,
  Registry;

{$R *.res}

var
  sPath:String;

begin
  Application.Initialize;
  sPath:=ExtractFilePath(Application.ExeName);
  MessageBox(HInstance,'Hello','World',mb_ok);
  Application.Run;
end.