🚀 go-pugleaf

>~{NRTZ~}interface~{@o6(ReHgOB5DR;8v@`~}
>
>  TGenealogyCell = class(TObject)
>    Sex: TSex;
>    Status: TGenealogyStatus;
>    StituationX: integer;
>    StituationY: integer;
>    procedure Create(x:integer;y:integer);
>  end;
>~{GR~}
>  TArrayGenealogyCell = array [0..0] of TGenealogyCell;
>  PArrayGenealogyCell = ^TArrayGenealogyCell;
>
>~{H;:sTZ~}implementation~{VP~}
>var
>  VGenealogyCell: PArrayGenealogyCell;
>
>~{2"GRTZ~}formcreate~{VP8x~}VGenealogyCell~{7VEdAK?U<d~}
>
>~{TZ3LPrVP#,NR5c;wR;8v~}button~{V4PPRTOBSo>d~}
>VGenealogyCell[0].Create(x,y)
>
>~{NR5D~}TGenealogyCell.Create~{:/J}JGUbC4P45D~}
>procedure TGenealogyCell.Create(x:integer;y:integer);
>begin
>  Sex:=Male;
>  Status:=gsNormal;
>  StituationX:=x;
>  StituationY:=y;
>end;
>~{5+C?4N3LPrV4PP5=~}Sex:=Male~{J1>M1(5XV74mNs#,UbJGN*J2C4#?~}
~{JTR;JT~}
    VGenealogyCell[0]:=TGenealogyCell.Create(x,y);
I don't know how you allocate the memory of VGenealogyCell,
but just try. Maybe you did't realy set the memory space to VGenealogyCell.