TTest = class
  private
    A : 구조체;
  public
   property AProperty : 구조체 read A write A;

  end;
 
  테스트 코드
procedure TTesting.procs();
var LVar: 구조체;
begin
    LVar.구조체멤버 := 123;
    A := LVar;
end;


이렇게..