Record-Problem - Ich machs doch wies überall steht :(

[n0k]

Hallo,
wir entwicklen grad in der Schule ein Programm das die Aufteilung der über 600 Schüler in ihre Projekte zum Ende des Schuljahres übernimmt. Ich dachte mir nun das ich ja zu hause ein bisschen rumpsielen könnte und stieß auf folgendes Problem.

Delphi-Quellcode:

implementation

{$R *.dfm}



{!!!!!!!!!!!!!!!!!! FORMCREATE !!!!!!!!!!!!!!!!!!}

procedure TForm1.FormCreate(Sender: TObject);
var
  i  :integer;
  a  :string;
schdata: Tschueler;

begin

AssignFile (schdata ,'schueler.pmx');
if FileExists ('schueler.pmx') then ReSet schdata
else Rewrite(schdata);


AssignFile (prodata,'projekte.pmx');
if FileExists ('projekte.pmx') then ReSet prodata
else Rewrite(prodata);

AssignFile (zuwdata,'zuweisung.pmx');
if FileExists ('zuweisung.pmx') then ReSet zuwdata
else Rewrite(zuwdata);


projektanzahl   :=3;
schueleranzahl  :=3;



    for i:=1 to schueleranzahl do
     begin
      SG_Schueler.RowCount:=i+1;
      a:=IntToStr(i);
      SG_Schueler.Cells[0,i]:=a;
     end;

    for i:=1 to Projektanzahl do
     begin
      SG_Projekte.RowCount:=i+1;
      a:=IntToStr(i);
      SG_Projekte.Cells[0,i]:=a;
     end;

    for i:=1 to Projektanzahl do
     begin
      SG_Zuweisung.RowCount:=i+1;
      a:=IntToStr(i);
      SG_Zuweisung.Cells[0,i]:=a;
     end;

{Schülerliste}
SG_Schueler.Cells[1,0]:='Name';
SG_Schueler.Cells[2,0]:='Klasse';
SG_Schueler.Cells[3,0]:='Projektwunsch 1';
SG_Schueler.Cells[4,0]:='Projektwunsch 2';
SG_Schueler.Cells[5,0]:='Projektwunsch 3';

{Projektliste}
SG_Projekte.Cells[1,0]:='Nummer';
SG_Projekte.Cells[2,0]:='Name';
SG_Projekte.Cells[3,0]:='Budget';
SG_Projekte.Cells[4,0]:='Leiter';
SG_Projekte.Cells[5,0]:='Raum / Ort';
SG_Projekte.Cells[6,0]:='Kapazität';

{Projektzuweisung}
SG_Zuweisung.Cells[1,0]:='Schuelername';
SG_Zuweisung.Cells[2,0]:='Klasse';
SG_Zuweisung.Cells[3,0]:='Projekt';
end;

Die Typendefs. sind in einer Extraunit, dem Projekt aber hinzugefügt und unter uses ist die Unit eingetragen.
Wenn ich nun das Teil kompilieren will, erscheint folgende Meldunge:

Inkompatible Typen (genau in der Zeile wo das erste Mal AssignFile steht!

Ich hoffe ihr könnt mir helfen
Danke schonmal