Fórum Criando um Componente Delphi que cria Edit e Label #481985

  with TStaticText.Create(Self) do
  begin
    Parent := Self;
    AutoSize := false;
    BevelKind := bkSoft;
    Top := 0;
    if QtdeCampos > 0 then
      Top := QtdeCampos * 20;
    Left := 0;
    Caption := texto;
    height:=20;
    Width := tamanhoLabel;
  end;
  with TEdit.Create(Self) do
  begin
    Parent := Self;
    Top := 0;
    if QtdeCampos > 0 then
      Top := QtdeCampos * 20;
    Left := tamanhoLabel;
    SetSubComponent(true);
  end;
  QtdeCampos := QtdeCampos+1;