Bezeichner redefiniert + Deklaration?

[Bericender]

Laut Delphi habe ich einige Bezeichner redefiniert und eine ungenügende Forward- oder External Deklaration bei den Prozeduren. Sieht von euch wer woran es liegt?

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;
        fn:string[9];
        Einzelteile:File of TEinzelteile;
        Einzelteile:TEinzelteile;
        Kundenstamm:File of TKundenstamm;
        Kundenstamm:TKundenstamm;
        procedure speichern(fn:string);
        procedure neu (fn:string);
        procedure oeffnen (fn:string);
        procedure schliessen;
        procedure vor;
        procedure zurueck;
   end;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

implementation

{$R *.dfm}

procedure oeffnen (fn:string)TFirma;
begin
  fn:'Einzelteile.dat';
  assignfile(Einzelteile,fn);
  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 (fn:string);
begin
  fn:'Einzelteile.dat';
  assignfile(Einzelteile,fn);
  seek(eof(einzelteile));
  rewrite(Einzelteile);
end;

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

procedure vor;
  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;
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(Einzelteile);
close
end;

end.