Funcion/Procedure para cambiar propiedades de varios Panels

[Tecnofacil]

Gracias a todos.
Efectivamente estuve haciéndolo en el evento onmouseMove/Leave respectivamente, pero uno por uno,

Código Delphi [-]
procedure TF_principal.btn_abmAMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  btn_abmA.Color := clgray; //Oscurece un poco el botón
end;
procedure TF_principal.btn_abmAMouseLeave(Sender: TObject);
begin
  btn_abmA.Color:= clBtnFace; //Vuelve al color original
end;

De hecho me ocurrió algo extraño, una vez que se hace clic sobre ese panel no vuelve mas a su color original, se queda gris oscuro hasta que se cierra la aplicación pero el evento MouseLeave si se dispara.