Delphi - Problemas con las adotable

estoy haciendo una clase que pueda operar una base de datos, guardar datos, eliminar, editar, etc,
dentro de la base de datos tengo esto

private
Tabla1 : TCustomADODataSet;
Tabla2 : TCustomADODataSet;

y un procedimiento

procedure CAlmacen.asignarTablas(pTabla1,pTabla2: TCustomADODataset);
begin
Tabla1:= pTabla1;
Tabla1:= pTabla2;
end;

y al llamar al procedimiento asignarTablas desde otra unit da el siguiente error

'access violation at address 0048453f in module 'Project1.exe'. write of address 00000004'

si alguien tiene idea de que es lo que esta mal y como se puede resolver,

saludos vla

Estate seguro de que creas tu objeto clase, generalmente da ese error al llamar a lugares de memoria en donde no se a asignado nada.
Asegurate de tener un constructor de tu clase.