Gracias por contestar...
He puesto en el evento Click del Panel la llamada a PintarDegradado
Código:
void __fastcall TForm1::Panel1Click(TObject *Sender)
{
PintarDegradadoH(this->Canvas,(TRect &)this->GetClientRect(),clBtnFace,clBlack,95);
}
entra en la funcion al Hacer Click sobre el Panel pero no hace nada ..