procedure TForm1.abf1Execute(Sender: TObject);
var s1:String;
begin try
s1:='"'+GetWindowsDirectory+'System32\rundll32.exe" "'+IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)))+'wbresorg.dll" wbrorg_resdialog';
WinExec32AndWait(s1,1);
FormCreate(Sender);
except end;End;