procedure TForm1.Button1Click(Sender: TObject); begin if GroupBox1.InheritsFrom(Tcontrol) then showmessage('si') else showmessage('No'); end;