[whizzkey]

Ребят, хотяб примеров простых дайте =)
Ладно, тогда давайте я напишу как я понимаю в коде а вы тогда поправьте если гдето не прав, ок ?
Посидев пару часиков за мануалами к делфи вроде как понял что можно коечто намутить при помощи seek и еще одной функции truncate

procedure TForm1.Button1Click(Sender: TObject); //пусть будет удаление по кнопке 1
//Переменная ftest, процедуры writetest и readtest описаны в модуле
begin
//n = номер удаляемой записи, начиная с 0
seek(ftest, filesize(ftest) - 1);
readtest
seek(ftest, n - 1);
writetest
//когда запись уже находиться в конце файла, я ее отсекаю
seek(ftest, filesize(ftest) - 1);
truncate(ftest);

Вроде как то так, но возникает ошибка I/O((