unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
StdCtrls, ExtCtrls, Menus, Buttons, ActnList,
test;
type
{ TForm1 }
TForm1 =
class(TForm)
BitBtn_c: TBitBtn;
BitBtn10: TBitBtn;
BitBtn9: TBitBtn;
BitBtn_d: TBitBtn;
BitBtn_v: TBitBtn;
BitBtn_fh: TBitBtn;
BitBtn_ks: TBitBtn;
BitBtn_gs: TBitBtn;
BitBtn_k: TBitBtn;
BitBtn_eins: TBitBtn;
BitBtn_zwei: TBitBtn;
BitBtn_drei: TBitBtn;
BitBtn_vier: TBitBtn;
BitBtn_fuenf: TBitBtn;
BitBtn_sechs: TBitBtn;
BitBtn_Versuche: TBitBtn;
BitBtn2: TBitBtn;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
Edit_d: TEdit;
Edit_v: TEdit;
Edit_fh: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
GroupBox1: TGroupBox;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
MainMenu1: TMainMenu;
MenuItem1: TMenuItem;
MenuItem10: TMenuItem;
MenuItem11: TMenuItem;
MenuItem12: TMenuItem;
MenuItem13: TMenuItem;
MenuItem14: TMenuItem;
MenuItem15: TMenuItem;
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
MenuItem4: TMenuItem;
MenuItem5: TMenuItem;
MenuItem6: TMenuItem;
MenuItem7: TMenuItem;
MenuItem8: TMenuItem;
MenuItem9: TMenuItem;
Panel1: TPanel;
StringGrid1: TStringGrid;
procedure BitBtn10Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure BitBtn_dClick(Sender: TObject);
procedure BitBtn_VersucheClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
procedure Neu;
public
var
Form1: TForm1;
end;