Fehler beim Laden einer Typdatei

[Angelus]

Hei Leute!!

Hab zwei Methoden geschrieben und zwar speichern und laden. Jeweils wird eine Typdatei gespeichert und dann wird die selbe geladen!!
Aber anscheinend funktioniert das laden nicht ... aber ich weis nicht warum ... bitte anschaun und helfen wenns wer weis

Code:

procedure TVerwaltung.speichern;
var
  datei: file of TVideo;
  i: integer;
begin
  assignfile(datei, '.\save.vds');
  rewrite(datei);
  for i := 0 to count-1 do
  begin
    write(datei, videos[i]);
  end;
  closefile(datei);
end;

procedure TVerwaltung.laden(var _help: TVideo);
var
  datei: file of TVideo;
  i: integer;
  help: TVideo;
begin
  assignfile(datei, '.\save.vds');
  reset(datei);

  for i := 0 to count - 1 do
    videos[i].Destroy;

  Videos := nil;
  while not eof(datei) do
  begin
    read(datei, help);
    self.setVideo(help);
  end;

  _help := help;
  
  closefile(datei);
end;

bitte und danke
thx angelus *g*