Var MiBoton : TButton; Begin MiBoton := TButton.Create(self); MiBoton.Parent := Self; MiBoton.Caption := 'Hola!'; ShowMessage('El nombre del botón es: ' + MiBoton.Name); End;