[JamesBond_Mx]

Por favor, ya no se que hacer, parece mentira, estoy tratando de hacer un pequeño proceso que me cambiara el valor de un campo en todos los registros de una tabla o sea que solo quiero que se le asigne un valor en especifico a todos los registro en ese campo, para esto pongo en el form un TTable, un TDatabase y un boton que me ejecutará el código, y en este pongo el siguiente código:

procedure TForm1.Button1Click(Sender: TObject);

Var
a:Integer;

begin
  Database1.Connected:=True;
  Table1.Active:=true;
  Table1.Edit;
  Table1.CachedUpdates:=True;
  Table1.First;
For a:=1 to Table1.RecordCount do
Begin
  Table1.FieldByName('Estado').Value:='Pendiente';
  Table1.Post;
  Table1.Next;
end;
  Table1.ApplyUpdates;
end;

Y al tratar de ejecutarlo me envía el error mencionado en el encabezado del mensaje, ¿que es lo que me falta?, ¿por que si le estoy poniendo Table1.Edit, no me lo respeta?, cual es mi error???

Gracias.