Por si acaso aquí tienes otra opción:
Código:
procedure TForm1.Button1Click(Sender: TObject);
Var
f: File of byte;
z:Byte;
begin
z:=1;
AssignFile(F,'d:\Dbase\Datos\Destino.dbf');
Reset(f);
try
Seek(f,1);
Write(f,z)
finally
CloseFile(f);
end;
end;
Un Saludo.