De clipper a Delphi...

[marcoszorrilla]

Por si acaso aquí tienes otra opción:

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.