unit frmVyberSarze;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ddPlugin_TLB, Vcl.ExtCtrls, Vcl.StdCtrls,
  Data.DB, Vcl.Grids, Vcl.DBGrids;

type
  TformVyberSarze = class(TForm)
    GridPanel1: TGridPanel;
    GridPanel2: TGridPanel;
    btnOK: TButton;
    btnZrusit: TButton;
    grdSarze: TDBGrid;
    procedure btnOKClick(Sender: TObject);
    procedure btnZrusitClick(Sender: TObject);
   private
   public
    idKmen, typVyberu: integer;
    Helios: IHelios;
    sarze: string;
    mrVal: integer;
  end;

var
  formVyberSarze: TformVyberSarze;

implementation
uses datMod, helUtils;

{$R *.dfm}



 procedure TformVyberSarze.btnOKClick (Sender: TObject);
  begin
   mrVal:= 10;
   Close;
  end;



 procedure TformVyberSarze.btnZrusitClick (Sender: TObject);
  begin
   mrVal:= 0;
   Close;
  end;

end.