Classes

unit ClasseUsuarios;

interface

uses
  Windows, Forms;

Type
  TUsuarios = class
  private
    fNome: string;
    fIdade: Integer;
  published
    property Nome: string read fNome write fNome;
    property Idade: Integer read fIdade write fIdade;
  end;

  TCadastro = class
  private
    fUsuarios: TUsuarios;
    procedure SetUsuarios(const Value: TUsuarios);
  published
    property Usuario: TUsuarios read fUsuarios write SetUsuarios;
  public
    constructor Create;
    destructor Destroy;
end;


implementation

{ TCadastro }

constructor TCadastro.Create;
begin
  fUsuarios:= TUsuarios.Create;
end;

destructor TCadastro.Destroy;
begin
  fUsuarios.Free;
end;

procedure TCadastro.SetUsuarios(const Value: TUsuarios);
begin
  if (Value.Idade < 21) then
  begin
    Application.MessageBox(´Proibido cadastro de menores´,´Erro´, MB_OK + MB_ICONERROR);
  end else
  begin
    fUsuarios := Value;
    Application.MessageBox(´Cadastro realizado com sucesso!´,´Ok´, MB_OK + MB_ICONINFORMATION);
  end;
end;

end.

procedure TForm1.Button1Click(Sender: TObject);
var
  MeuCadastro: TCadastro;
  Teste: TUsuarios;
begin
  {MeuCadastro := TCadastro.Create;
  Teste       := TUsuarios.Create;
  Teste.Nome  := ´Rodrigo´;
  Teste.Idade := 18;
  MeuCadastro.Usuario:= Teste; } /// ********** DESTA FORMA AKI FUNCIONA **** ///


  MeuCadastro:= TCadastro.Create;
  MeuCadastro.Usuario.Nome:= ´Rodrigo´;
  MeuCadastro.Usuario.Idade:= 18;
end;