typisierte Datei zum Speichern fehlerhaft

[Technikus]

Guten Morgen,
ich habe folgenden Script zum Speichern von Daten in einer Datei geschrieben und erhalte einen Fehler in Zeile 6.
Woran kanns liegen? (Delphi 2005)
Vielleicht kann mir jemand helfen.

Danke im voraus
Technikus

Delphi-Quellcode:

type
Tleistung = record
             nr:byte;
             Spannung, Strom, Leistung: double;
            end;
type    TDatei= file of TLeistung;
{Fehlermeldung: E1025 Sprach-Feature wird nicht unterstützt: 'typisierte oder untypisierte Datei'}

procedure TForm1.Button1_SpeichernClick(Sender: TObject);
var Messwert: TLeistung;
    i, anzahl: integer;
    Datei: TDatei;

begin
 anzahl:=StrToInt(Edit3_Eingabe_anzahl.Text);
 AssignFile(Datei,'solarz.dat');
 Rewrite(Datei);
 for i:= 1 to anzahl do
  with Messwert do
   begin
    nr:= i;
    Spannung:= StrToFloat(StringGrid1.Cells[1,i]);
    Strom:= StrToFloat (StringGrid1.Cells [2,i]);
    Leistung:=StrToFloat (StringGrid1.Cells [3,i]);
    Write (Datei,Messwert);
    end;
  CloseFile (Datei);
end;