TBatchMove causes GPF 1

[troyu]

I am unable to use TBatchMove. I continue getting General Protection Fault's when I try and use this component!! Help.

Here is a snipit:

procedure runCashReImport;

var
BMove : TBatchMove;

begin
BMove.Destination := Form_Main.Table_GiftCashed;
BMove.Source := Form_Main.Query_CashedTwice;
BMove.Mode := batAppend;
BMove.Execute;
end;

 

[Nordlund]

You forgot to create the TBatchMove object.

procedure runCashReImport;
var
BMove : TBatchMove;
begin
BMove := TBatchMove.Create(Application);
BMove.Destination := Form_Main.Table_GiftCashed;
BMove.Source := Form_Main.Query_CashedTwice;
BMove.Mode := batAppend;
BMove.Execute;
BMove.Free;
end;