Delphi - concatenar un campo, registro en base datos

hola gente, nesesito que alguien me peuda arreglar mi codigo que no me anda, quiero acer lo siguiente:

tendo una base datos cona acces, y si programita con delphi

la base datos tiene dos datbas1 y tabla2

quiero grabar un registro en tabla1, y el numero de registro quiero agregarle (CONCATENAR) a un campo en la tabla 2..

mi codigo es algo asi, es la parte que no me anda, me aparece error de typo variant imcompatible

INVALID VARIANT TYPE CONVERSION... este es error que me aparece

//concatenamos los numero registro,y guardamos lo concatenado
/// aca modifico campo NumReg de tabla2
ADOTable2.Edit;
a := ADOTable2.FieldValues['NumReg'];
ConcatenarCode := a + ', ' + edit1.text; //aca concateno el nuevo valor introducido en EDIT1 y le agrego al campo NumReg de la tabla1.

ADOTable2.FieldByName('NumReg').AsString := ConcatenarCode; //le paso al registro la variable ya concatenada
ADOTable2.Post;

showmessage('apellido esta registrado, iniciamos registro del tramite');
/// aca grabo en tabla2
ADOTable1.Insert;
ADOTable1.FieldByName('NumReg').AsString := Edit1.Text;
ADOTable1.FieldByName('venta').AsString := Edit2.Text;
ADOTable1.FieldByName('codigos').AsString := Memo1.text;
ADOTable1.Post;

Pudieras decir en que linea te amrca el error?, intenta con esto

a := ADOTable1.FieldByName('NumReg').AsString;

bien bien exelente 10... si justo ese renglon no me andaba, lo combie por que que me paso y aora si concatene, gracias

ADOTable2.Edit;
a := ADOTable2.FieldByName('NumReg').AsString ;
ConcatenarCode := a + ', ' + edit1.text;
//ADOTable2.Insert;
ADOTable2.FieldByName('NumReg').AsString := ConcatenarCode;
ADOTable2.Post;