Código Delphi [-] with TFrame1.Create(Self) do Parent := Self;
with TFrame1.Create(Self) do Parent := Self;