Gracias po contestar
he puesto
Código:
PintarDegradadoH(Panel1->Canvas,(TRect &)this->GetClientRect(),clBtnFace,clBlack,95);
Tanto en el evento PaintForm1 como en el evento ClickPanel1 y me da los siguientes errores
'TCustomControl::Canvas is not accesible'
'Type mistmatch in parameter 'Canvas' (wanted 'TCanvas *', got 'TCanvas *')