diff --git a/exgui/unit_webrunform.dcu b/exgui/unit_webrunform.dcu
new file mode 100644
index 0000000..902b156
Binary files /dev/null and b/exgui/unit_webrunform.dcu differ
diff --git a/exgui/unit_webrunform.ddp b/exgui/unit_webrunform.ddp
new file mode 100644
index 0000000..4370276
Binary files /dev/null and b/exgui/unit_webrunform.ddp differ
diff --git a/exgui/unit_webrunform.pas b/exgui/unit_webrunform.pas
index f3bdd6e..e947bcf 100644
--- a/exgui/unit_webrunform.pas
+++ b/exgui/unit_webrunform.pas
@@ -8,6 +8,11 @@ uses
 
 type
   Twnd_webrunform = class(TForm)
+    BitBtn1: TBitBtn;
+    BitBtn2: TBitBtn;
+    BitBtn3: TBitBtn;
+    Label1: TLabel;
+
     procedure BitBtn2Click(Sender: TObject);
     procedure BitBtn3Click(Sender: TObject);
     procedure BitBtn1Click(Sender: TObject);
@@ -26,17 +31,18 @@ implementation
 
 procedure Twnd_webrunform.BitBtn2Click(Sender: TObject);
 begin
-  // TODO: Twnd_webrunform.BitBtn2Click
+  ModalResult:= mrCancel;
 end;
 
 procedure Twnd_webrunform.BitBtn3Click(Sender: TObject);
 begin
-  // TODO: Twnd_webrunform.BitBtn3Click
+  ModalResult:= mrOk;
 end;
 
 procedure Twnd_webrunform.BitBtn1Click(Sender: TObject);
 begin
-  // TODO: Twnd_webrunform.BitBtn1Click
+  ModalResult:= mrYes;
 end;
 
 end.
+ 
\ No newline at end of file