typisierte Datei zum Speichern fehlerhaft

[Technikus]

Hallo!
Komme gerade erst von Arbeit, deshalb meine Verspätung.
Danke erst mal für die Antworten .
marabu-->
ich habe den Quelltext so geändert, aber jetzt gibt es eine neue Fehlermeldung:siehe Zeile 8.
Kann mir jemand bei der Fehlersuche helfen?

Delphi-Quellcode:

type TLeistung= record
 nr: byte;
 Spannung, Strom, Leistung: double;
 end;

procedure TForm1.Button1_SpeichernClick(Sender: TObject);
var Messwert: TLeistung;
    Buffer: array [1..SizeOf(TLeistung)] of byte absolute Messwert;
{E2026 Konstantenausdruck erwartet}
    i, anzahl: integer;
    fs : TFileStream;
begin
  anzahl:=StrToInt(Edit3_Eingabe_anzahl.Text);
  fs := TFileStream.Create('solarz.dat', fmCreate);
  try
  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]);
    end;
    fs.WriteBuffer(Buffer,Sizeof(Buffer));
  finally
     fs.Free;
  end;
end;

Gruß
Technikus