Я стараюсь чтобы вы сами что-нибудь делали! Я подсказал метод решения этой задачи. Ну раз не получается то помогу немного.
Самый примитивный способ (все с него начинают) это грузить нужный файл в Image в нужный момент с винта. Это конечно плохой способ но всеже он существует. Ведь при каждом нажатии на кнопку будет использоваться диск. Итак, как же загрузить программно в Image? Если мы загружаем через инспектор объектов картинку, во время разработки приложения, то мы используем свойство Picture. Вот с него и нужно начать поиски. Написав "image1.picture." появляется список всего что можно написать дальше. внимательно смотрим и видем процедуру LoadFromFile. Это английский. Из названия видно что это то что нужно. С ее помощю можно загрузить файл. Например можете попробовать написать Image1.Picture.LoadFromFile('путь к картинке'); по нажатию на кнопку. (путь должен быть с расширением файла).
Ну, а эффект нажатия делаем так:
Code
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image1.Picture.LoadFromFile('путь к картинке с нажатой кнопкой');
end;
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Image1.Picture.LoadFromFile('путь к картинке с отпущенной кнопкой');
end;
Еще раз отмечу, что это самый примитивный способ.