He creado una clase similar a:
Código Delphi
[-]
TUnidad = class(TObject)
private
FInserccion: Boolean;
FModif_A: Boolean;
...
public
constructor Create(Owner: TComponent; Id: Integer; Inserccion: Boolean);
function Save: Boolean;
end;
...
constructor TUnidadACA.Create(Owner: TComponent; Id: Integer; Inserccion: Boolean);
begin
inherited Create;
FInserccion:= Inserccion;
FModif_A:= False;
...
end;
Posteriormente en un formulario en su parte privada he definido una variable de la clase y en una de sus funciones:
Código Delphi
[-]
if Assigned(FUniACA) then FUniACA.Free;
try
FUniACA.Create(Self, StrToInt(Id), false);
...
Al crear la clase, cuando se produce la asignación:
FInserccion:= Inserccion;
FModif_A:= False;
o cualquier otra se porduce una excepción:
Cita:
Access violation at address 004C0D1E in module "nombre.exe". Wirte of address 00000004
|

¿porqué?
Saludos.