Einlesen von Werten bei TFilestream

[konda]

Hallo, ich beschäftige mich seit einiger Zeit mir Streams. Ich wollte das mal ausprobieren, aber wenn ich versuche die 2.Zahl zu lesen, liefert das Programm mir immer nur den wert der ersten Zahl; Was mache ich falsch?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var stream: tstream;
    zahl,zahl1: integer;
begin
  stream:= tfilestream.Create('C:\test.hen', (fmcreate or fmOpenWrite));
  zahl:= strtoint(edit1.Text);
  zahl1:= strtoint(edit1.Text)+1;
  try
    stream.Write(zahl,sizeof(zahl));
    stream.Write(zahl1,sizeof(zahl1));
  finally
    stream.free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var stream: tstream;
    zahl: integer;
begin
  stream:= tfilestream.Create('c:\test.hen', fmopenread);
  try
    stream.read(zahl, sizeof(zahl));
  finally
    stream.Free;
  end;
  label1.caption:= inttostr(zahl);
end;

procedure TForm1.Button3Click(Sender: TObject);
var stream: tstream;
begin
  stream:= tfilestream.Create('c:\test.hen', fmopenread);
  try
    stream.read(zahl1, sizeof(zahl1));
  finally
    stream.Free;
  end;
  label2.caption:= inttostr(zahl1);
end;