Datensatz aus einer Typisierten Datei löschen

[Master_BB]

Hya,
hab zur zeit das prob das ich keinen bestimmten datensatz aus meiner Typisierten datei löschen kann.
Theoretisch müßte es so

Code:

  i:=1;
  while not eof(pf) do
   begin
    Read(pf, buffer[i]);
    i := i+1;
   end;
  delete := StrToInt(Label9.Caption);
  for i := delete-1 to filesize(pf) do begin
   buffer[i] := buffer[i+1];
  end;
  truncate(pf);

gehn läuft aber net. da macht er garnix.
obwohl er was machn müßte dadurch das der zu löschenende DS vom i+1sten überschrieben wird und alles rückt nach und das ende wird abgeschnippelt.
Kann mir mal jemand helfen?
bei meinem TP programm lief es so in etwa

[edit=MrSpock]Verschoben[/edit]