Разработка проекта начиналась с главной формы (рис2.) На форме размещены всего три объекта : Label1 класса TLabel (метка), Image1 класса TImage (изображение) и кнопка Button1 класса TButton. С помощью несложного кода посредством этой кнопки производится переход на вторую форму:

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Hide;

Form2.Show;

end;

Рис 2. Главная форма проекта «Birds»

В компоненты этой формы входит объект ListBox1 (рис3.) класса TListBox – список, с помощью которого осуществляется дальнейший переход к остальным формам программы:

procedure TForm2.ListBox1DblClick(Sender: TObject);

begin

Form2.Hide;

(Birds[ListBox1.ItemIndex])^.Show;

end;

Здесь используется массив Birds, который был описан ранее:

const

numBirds = 15;

Birds: array[0 numBirds-1] of ^TForm =

(@Vorob, @Cov, @Popug, @Raksh, @Gol, @Gus, @Pog, @DHP, @Zur, @Kul, лплплл@Kur, @Dyat, @DK, @Golub, @Ping);

Рис3. Компонент ListBox1.

В остальных формах программы с помощью несложных компонентов было размещено довольно большое количество информации: графической, текстовой и звуковой.