Ayuda con este error????

[danytorres]

buenas tardes Sr del foro tengo un pequeño problema con un procedimieto que hago al ejecutarlo me da el siguiente error

Error:
-_________________________________________________
Exception EDBEngine Error Insufficient memory for this operation
___________________________________________________

el codigo que ejecuto es el siguiente;

Code:
______________________________________________________
procedure TForm1.BitBtn2Click(Sender: TObject);
Var
ArchivoCsv, Campos: TStringList;
I, J: Integer;
begin

ArchivoCsv := TStringList.Create;
Campos:= TStringList.Create;

try
ArchivoCsv.LoadFromFile('c:\HV.txt');

for I := 0 to ArchivoCsv.Count -1 do
begin
Campos.Clear;

Campos.CommaText := ArchivoCsv[i];

If DataModule2.Table2.Locate('CODEMP',Campos[0],[]) then
begin
DataModule2.Table2.Edit;
DataModule2.Table2.Fields[1].Value := Campos[1];
DataModule2.Table2.Fields[2].Value := Campos[2];
DataModule2.Table2.Post;
end;


end;

finally
ArchivoCsv.Free;
Campos.Free;
end;
___________________________________________________

la tabla es una DB que tiene 1000 registros

nose que hacer????????