1. Добавьте на форму контейнер картинок - компонент TImageList. Загрузите в него картинки животных. Не забудьте предварительно выставить размер картинок для животных в свойствах контейнера, иначе все картинки будут преобразованы к размеру 16х16 точек.
2. Добавьте на форму радионабор (TRadioGroup) и пропишите там столько элементов, сколько вы добавили картинок животных в контейнер
В событии OnClick для радионабора надо прописать такой код:
Код:
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex = -1 then Exit;
Image1.Canvas.FillRect(Image1.ClientRect);
ImageList1.GetBitmap(RadioGroup1.ItemIndex, Image1.Picture.Bitmap);
end;
По аналогии сделаете работу с меню. Удачи.