Bezeichner redefiniert + Deklaration?

[Bericender]

Wird etwas für die Schule und hab über Weihnachten nichts dran gemacht so das mir viele Sachen erstmal nicht mehr eingefallen sind (Ferien halt). Meine beiden Units sehen jetzt übrigens wie folgt aus

Delphi-Quellcode:

unit uUnit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
        Firma.neu;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
        Firma.oeffnen(Edit1,2,3,4:TEdit);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
        Firma.vor(Edit1,2,3,4:TEdit);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
        Firma.zurueck(Edit1,2,3,4:TEdit);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
        Firma.speichern(Edit1,2,3,4:TEdit);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
        Firma.schliessen;
end;

end.

Delphi-Quellcode:

unit uUnit2;                                             

interface

type
  TEinzelteile = record
        TNummer,Preis:integer;
        Bezeichnung,Verwendung:string[250];
  end;
  TKundenstamm = record
        Name,Strasse,Ort:string[100];
        Hausnummer,Postleitzahl:integer;
  end;
  Tearray=Array[0..999]of TEinzelteile;
  Tkarray=Array[0..999]of TKundenstamm;
  TFirma=class
        earray:Tearray;
        karray:Tkarray;
        Einzelteile:File of TEinzelteile;
        Einzelteile:TEinzelteile;
        Kundenstamm:File of TKundenstamm;
        Kundenstamm:TKundenstamm;
        procedure speichern(Edit1,2,3,4:TEdit);
        procedure neu;
        procedure oeffnen(Edit1,2,3,4:TEdit);
        procedure schliessen;
        procedure vor(Edit1,2,3,4:TEdit);
        procedure zurueck(Edit1,2,3,4:TEdit);
      procedure onCreate;
   end;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var 
      Firma : Tfirma;

implementation

{$R *.dfm}

procedure onCreate;
begin
Firma := TFirma.create;
end

procedure oeffnen(Edit1,2,3,4:TEdit);
begin
  assignfile(Einzelteile,'Einzelteile.dat');
  if fileexists ('Einzelteile.dat')
  then reset(Einzelteile);
  Einzelteile.TNummer:=Edit1.Text;
  Einzelteile.Preis:=Edit2.Text;
  Einzelteile.Bezeichnung:=Edit3.Text;
  Einzelteile.Verwendung:=Edit4.Text;
  else ReWrite(Einzelteile);   
end;

procedure neu;
begin

  assignfile(Einzelteile,'Einzelteile.dat');
  seek(eof(einzelteile));
  rewrite(Einzelteile);
end;

procedure speichern(Edit1,2,3,4:TEdit); 
begin
  assignfile(Einzelteile,'Einzelteile.dat');
  Einzelteile.TNummer:=inttostr(Edit1.Text);
  Einzelteile.Preis:=inttostr(Edit2.Text);
  Einzelteile.Bezeichnung:=Edit3.Text;
  Einzelteile.Verwendung:=Edit4.Text;
  write(Einzelteile,earray);
end;

procedure vor(Edit1,2,3,4:TEdit);
  begin
  seek(Einzelteile,filepos(Einzelteile));
  Einzelteile.TNummer:=inttostr(Edit1.Text);
  Einzelteile.Preis:=inttostr(Edit2.Text);
  Einzelteile.Bezeichnung:=Edit3.Text; 
  Einzelteile.Verwendung:=Edit4.Text;
end;

procedure zurueck(Edit1,2,3,4:TEdit);
begin
  Seek(Einzelteile, FilePos(Einzelteile)-2);
  Einzelteile.TNummer:=inttostr(Edit1.Text);
  Einzelteile.Preis:=inttostr(Edit2.Text);
  Einzelteile.Bezeichnung:=Edit3.Text; 
  Einzelteile.Verwendung:=Edit4.Text;
end;

procedure schliessen;
begin
CloseFile(Firma);
close
end;

end.