Хоть я и не заток Delphi... Полазил, вроде нашел.

Возможно подойдет такой вариант:
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (X>=Button1.Left) and
     (X<=Button1.Left+Button1.Width) and
     (Y>=Button1.Top) and
     (Y<=Button1.Top+Button1.Height) then
  begin
    Button1.visible := true;
  end;
end;

Только как обратно невидимость вернуть, надо поиграть еще. Наверное, аналогичную функцию прописать для формы.

Исправлено samael (15.03.07 01:10)

нет подождите.....кнопка не Исчезает а выделяется на панели...ну как меню в ворде например. То есть кнопка не выпуклая не вогнутая а плоская, сливается с ранелью...естественно рисунок на ней будет виден.
На сколько я знаю это в свойствах есть....не помню где, воть

ооо вот оно!!! спасибо огромное!)))

srf2000, аналогично :)