Duda con ADOTable y tipo datos Variant

[jhcaboverde]

Tengo un problema al implementar el codigo que les paso debajo usando el componente ADOTable, sin embargo con el componente de la paleta BDE si me funciona sin problemas. Ademas, al usar ADOTable en este codigo e irlo debugeando no lo hace.

COdigo Delhpi:

...
type
Recuerda = array[0..100] of variant;
// PRecuerda = ^TRecuerda;
var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
VAR
Estado,YaProyectado:String;
Recuer:Recuerda;
n,Campos:integer;


BEGIN
Table1.Edit;
for n:=0 to Table1.FieldCount-1 do {Recordamos los campos}
begin
Recuer[n]:=Table1.Fields[n].AsVariant;
end;
Table1.Append;{Añadimos un registro}
for n:=0 to Table1.FieldCount-1 do {Lo rellenamos}
begin
Table1.Fields[n].AsVariant:=Recuer[n];
end;
Table1.Post; {Lo grabamos}
table1.Close;

end;

...