type FKarte = record
      id: string[10];
      Name: string[100];
      Attribut: string[20];
      Typ: string[20];
      Kartentyp: string[30];
      Seltenheit: string[20];
      Kartentext: string[150];
      Edition: string[50];
      Angriff: integer;
      Verteidigung: integer;
      Menge: integer;
      Level: integer;
end;

var
  TNewAddDC: TTNewAddDC;
   datei: file of FKarte; // <--- Fehler Quelle

implementation

{$R *.nfm}

procedure TTNewAddDC.btSaveClick(Sender: TObject);
begin
  AssignFile(datei,'Test.dat');
    if FileExists('Test.dat')
      then ReSet(datei)
    else ReWrite(datei);
end;