[[basti]]

Perdón, error mío, en vez de TControl puse TObject en la declaración del procedimiento.

Debería ser

Código Delphi [-]
  procedure centrarmarco(objeto : TControl; base : tpanel);