Delphi 5: Problem mit Create bei Ini-Datei...

[Fussel9]

Hi, dickes Problem:
Ich bin noch Schüler und habe deshalb nur Delphi5...
Ich wollte für ein Objekt eine Ini-Datei anlegen, damit ich Integer Werte beim Schließen speichern und beim Laden einlesen kann, das Programm soll transportabel sein, daher Ini...

jetzt bekomme ich aber immer direckt nen Fehler wenn ich folgende Zeile rein setze:

constructor Create(const FileName String); die Zeile ist original aus der Delphi Hilfe... Hab auch schon String durch Integer ersetzt aber selbes Problem, es geht ihm gar nicht um String/Integer er sagt: Undefinierter Bezeichner Create...

Bei der Gelegenheit: Ist es entscheident wo der constructor steht?

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Image1: TImage;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

var ax,ay :Integer;

var a : Integer;

{$R *.DFM}

constructor Create(const FileName String);

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.visible:=FALSE;
Button2.visible:=FALSE;
Button3.visible:=FALSE;
Button4.visible:=TRUE;
Button5.visible:=FALSE;
Button6.visible:=FALSE;
Timer1.Enabled:=True;
ax:=543;
ay:=303;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Button1.visible:=FALSE;
Button2.visible:=FALSE;
Button3.visible:=FALSE;
Button4.visible:=FALSE;
Button5.visible:=TRUE;
Button6.visible:=FALSE;
Timer1.Enabled:=True;
ax:=591;
ay:=351;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Button1.visible:=FALSE;
Button2.visible:=FALSE;
Button3.visible:=FALSE;
Button4.visible:=FALSE;
Button5.visible:=FALSE;
Button6.visible:=TRUE;
Timer1.Enabled:=True;
ax:=623;
ay:=383;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var x , y :Integer;
begin
Randomize;
x:=Random(ax);
y:=Random(ay);
if Button4.visible=True then
begin
  Button4.Left:=x;
  Button4.Top:=y;
end
else
if Button5.visible=True then
begin
  Button5.Left:=x;
  Button5.Top:=y;
end
else
begin
  Button6.Left:=x;
  Button6.Top:=y;
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Timer1.Enabled:=False;
ShowMessage('You Won!');
Button1.visible:=TRUE;
Button2.visible:=TRUE;
Button3.visible:=TRUE;
Button4.visible:=FALSE;
Button5.visible:=FALSE;
Button6.visible:=FALSE;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Timer1.Enabled:=False;
ShowMessage('You Won!');
Button1.visible:=TRUE;
Button2.visible:=TRUE;
Button3.visible:=TRUE;
Button4.visible:=FALSE;
Button5.visible:=FALSE;
Button6.visible:=FALSE;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Timer1.Enabled:=False;
ShowMessage('You Won!');
Button1.visible:=TRUE;
Button2.visible:=TRUE;
Button3.visible:=TRUE;
Button4.visible:=FALSE;
Button5.visible:=FALSE;
Button6.visible:=FALSE;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
a := ReadInteger('Abschnitt1','Anzahl',0);
a := a+1;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ini.WriteInteger('Abschnitt1','Anzahl',a);
end;

end.