Wenn dein Panel ein Canvas hat, was bei einem normalen Panel protected ist, könntest du es so machen:
Beispiel für normales TPanel
Delphi-Quellcode:
type
THackPanel = class(TPanel);
function PanelTextHeight(APanel: TPanel; AText: string): Integer;
var
R: TRect;
begin
R.Create(0,0,0,0);
THackPanel(APanel).Canvas.TextRect(R, AText, [tfCalcRect]);
Result := R.Height;
end;