Prvni verze na Git

frmUnit4.pas

@@ -0,0 +1,32 @@
+unit frmUnit4;
+
+interface
+
+uses
+ Winapi.Windows, System.Classes, Vcl.Forms, Vcl.Controls, Vcl.StdCtrls,
+ ddPlugin_TLB;
+
+type
+  TformDodavky = class(TForm)
+    btnOK: TButton;
+    procedure btnOKClick(Sender: TObject);
+  private
+  public
+   Helios: IHelios;
+   idOrg: integer;
+  end;
+
+var
+  formDodavky: TformDodavky;
+
+implementation
+uses ComObjekt, helUtils;
+
+{$R *.dfm}
+
+ procedure TformDodavky.btnOKClick(Sender: TObject);
+  begin
+   Close;
+  end;
+
+ end.