unit EigenesTrainingU;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,TagU;

type
  TfrmEigenesTraining = class(TForm)
    Label1: TLabel;
    cbxATage: TComboBox;
    procedure cbxATageChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
        btnTag : Array[1..7] of TButton;
        procedure btnTag1(Sender: TObject);
        {procedure btnTag2(Sender: TObject);
        procedure btnTag3(Sender: TObject);
        procedure btnTag4(Sender: TObject);
        procedure btnTag5(Sender: TObject);
        procedure btnTag6(Sender: TObject);
        procedure btnTag7(Sender: TObject);}
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmEigenesTraining: TfrmEigenesTraining;
  Left,Top,Counter : Integer;
  Change : boolean;

implementation

uses
        EinloggenU;

{$R *.DFM}

procedure TfrmEigenesTraining.cbxATageChange(Sender: TObject);
var I :integer;
begin
        if Change = True then
        for I := 1 to Counter do
        begin
                btnTag[I].Destroy;
                Counter := 0;
        end;
        for I := 1 to strtoint(cbxATage.Items[cbxATage.ItemIndex]) do
        begin
                btnTag[I] := TButton.Create(self);
                btnTag[I].Parent := self;
                btnTag[I].Caption := 'Tag';
                btnTag[I].Left := Left;
                btnTag[I].Top := Top;
                btnTag[I].Visible := True;
                Left := Left + 88;
                Change := True;
                Counter := Counter + 1;
                btnTag[I].OnClick := btnTag1 {PROBLEM PROBLEM PROBLEM PROBLEM}

        end;
end;

procedure TfrmEigenesTraining.FormCreate(Sender: TObject);
begin
        Left := 250;
        Top := 250;
        Change := False;
end;

procedure TfrmEigenesTraining.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
        frmLogin.show;
end;

procedure TfrmEigenesTraining.btnTag1(Sender: TObject);
begin
        frmLogin.show;
end;

end.