Eigene Objekte erstellen

[qb-tim]

Hi,

ich versuche gerade ein Programm zu schreiben in dem ich eine eigene "class" erstellt habe... Mein Problem ist, dass beim Aufrufen von MeinObjekt.Create; ein Error unter "Application.Run" erscheint.

Mein Code:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure A(Sender: TObject);
    procedure B();
    procedure C(x: Integer; y: Integer);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

TMeinObjekt = class
  private
    va: Integer;
    vb: Integer;
    vc: Integer;
    vd: String;
    ve: String;
    vf: String;
    vg: Real;
    vh: String;
    vi: Integer;
    vj: Integer;
    vk: Integer;
end;

var
  Form1: TForm1;
  MeinObjekt: Array[0..148, 0..95] of TMeinObjekt;

implementation

{$R *.dfm}

procedure TForm1.A(Sender: TObject); //Form.OnActivate
begin
  B();
end;

procedure TForm1.B();
var x, y: Integer;
begin
  for y := 0 to 95 do
    case y of
      0: for x := 1 to 1 do
           C(x, y);
      1: for x := 0 to 3 do
           C(x, y);
      2: for x := 1 to 6 do
           C(x, y);
      // usw.
    end;
end;

procedure TForm1.C(x: Integer; y: Integer);
begin
  MeinObjekt[x, y].Create;
  MeinObjekt[x, y].va := y;
  MeinObjekt[x, y].vb := x;
  MeinObjekt[x, y].vc := y + x;
  // usw.
end;

end.

Ich habe herausgefunden, dass das Programm in der Zeile mit "MeinObjekt[x, y].Create;" einen Fehler meldet, aber ich weiß nicht wieso...

Vielleicht habe ich meine "class" falsch definiert oder MeinObjekt.Create ist nicht der richtige Befehl...

Kann mir jemand vielleicht helfen?