Программирование кнопки удаления записи

procedure TForm1.Button5Click(Sender: TObject);
var i:integer;
begin
Seek(NoteFile, pos);
Truncate(NoteFile);
Button2.Enabled:=false;
if pos<>0 then dec(pos)
else
begin
Button5.Enabled:=false;
ClearDate;
end;
if pos>=0 then
begin
for i:=pos+1 to FileSize(NoteFile)-1 Do
begin
Seek(NoteFile,i);
Read(NoteFile, NoteData);
Seek(NoteFile, i-1);
Write(NoteFile, NoteData);
end;
Seek(NoteFile, FileSize(NoteFile) -1);
Truncate(NoteFile);
end;
Seek(NoteFile, pos);
Read(NoteFile, NoteData); ShowRecord;
if pos=-1 then
begin
Button1.Enabled := false; {Кнопка возвращения назад}
end;
 
end;

begin
  Seek(NoteFile, Pos);{Перемещаемся на текущую позицию}
  j := FileSize(NoteFile); {Присваиваем j размер файла}
  for i := Pos + 1 to j - 1 do {Цикл переписывания с текущей позиции текущего файла во временны файл}
  begin
    Seek(NoteFile, i);
    Read(NoteFile, NoteData);
    Seek(NoteFile, i - 1);
    Write(NoteFile, NoteData);
  end;
  Truncate(NoteFile);{Обрубаем,что находится после текущей позиции в файле NoteFile}
  if Pos > FileSize(NoteFile) - 1 then {Если позиция больше размера файла,то присваиваем ей позицию конца файла}
    Pos := FileSize(NoteFile) - 1;
 
  if FileSize(NoteFile) > 0 then {Если в файле что-то записано}
  begin
    Seek(NoteFile, Pos);
    Read(NoteFile, NoteData);{Считываем Файл во временный файл}
    ShowRecord;{Показываем запись}
  end
  else
    ClearData;
  Button1.Enabled := Pos > 0;
  Button2.Enabled := Pos < FileSize(NoteFile) - 1;
end;

begin
  Seek(NoteFile, Pos);{Перемещаемся на текущую позицию в файле}
  j := FileSize(NoteFile); {Присваиваем j размер файла}
  {В цикле переписываем записи в файле на 1 вперед - начиная с записи после текущей. Т.е. затираем удаляемую запись следующей, а следующую, следующей за ней и т.к. до конца файла}
  for i := Pos + 1 to j - 1 do 
  begin
    Seek(NoteFile, i);
    Read(NoteFile, NoteData);
    Seek(NoteFile, i - 1);
    Write(NoteFile, NoteData);
  end;
  {Обрубаем,что находится после текущей позиции в файле NoteFile. Текущая позиция сейчас = размер файла - 1}
  Truncate(NoteFile);
{Если позиция больше размера файла,то присваиваем ей позицию конца файла. Такое может быть при удалении последней записи}
  if Pos > FileSize(NoteFile) - 1 then 
    Pos := FileSize(NoteFile) - 1;
 
  if FileSize(NoteFile) > 0 then {Если в файле есть записи}
  begin
    Seek(NoteFile, Pos);
    Read(NoteFile, NoteData);{Считываем текущую запись}
    ShowRecord;{Показываем запись}
  end
  else
    ClearData;
  Button1.Enabled := Pos > 0;
  Button2.Enabled := Pos < FileSize(NoteFile) - 1;
end;

Button1.Enabled := Pos > 0;
  Button2.Enabled := (Pos < FileSize(NoteFile) - 1);

if Pos < FileSize(NoteFile) - 1 then
  Button2.Enabled := True
else
  Button2.Enabled := False;

var
  vB: Boolean;
begin
  vB := (Pos < FileSize(NoteFile) - 1);
  Button2.Enabled := vB;
end;