Нажатие на кнопку при определенном условии

[soundsound]

Здравствуйте,
пытаюсь написать программу по географии и возникла проблема с самым главным.
Пользователю дается карта, в лейбл должен выводиться вопрос (например, укажите австралию), далее пользователь нажимает на австралию, если верно - то континент меняет цвет с белого на зеленый. Проблема в том, что не понимаю как это реализовать, карту на континенты разбил и расположил их на форме.
Помогите пожалуйста хотя бы начать.
Заранее спасибо.

[Filka]

http://www.delphisources.ru/pages/so...detection.html
http://www.ciuly.com/delphi/user-int...n-image-shape/

[one_man_show]

Для каждого выводимого в лейбл вопроса, например, в массиве храним индекс, соответствующий континенту. При нажатии на картинку континента, сравниваем с требуемым индексом. При совпадении подсвечиваем континент.

[soundsound]

Сообщение от one_man_show

Для каждого выводимого в лейбл вопроса, например, в массиве храним индекс, соответствующий континенту. При нажатии на картинку континента, сравниваем с требуемым индексом. При совпадении подсвечиваем континент.

не подскажите как это реализовать программно

пытаюсь сделать таким способом:

var
  startform: Tstartform;
  Q1: string;
  Q2: string;
  Q3: string;
  Q4: string;
  Q5: string;
  Q6: string;

procedure Tstartform.gs_start_pressedClick(Sender: TObject);
begin
  Q1:='Choose Australia';
  Q2:='Choose North America';
  Q3:='Choose South America';
  Q4:='Choose Afrika';
  Q5:='Choose Antarctica';
  Q6:='Choose Eurasia';
  LabelQ1.Caption := Q1; // правильно понимаю, что придется создавать 6 лейблов и выводить в каждый определенный вопрос?
end;

procedure Tstartform.map_avstraliaClick(Sender: TObject);
begin
if Q1 then map_avstraliaClick; //понятно что код неправильный, но верное решение в голову не приходит
end;

[one_man_show]

Уберите повторяющиеся строки, используйте массив строк.
Далее сравниваете не строки, а индексы. Если индекс ответа совпал с индексом вопроса, подсвечиваете...

[soundsound]

а можно подробнее
что куда писать
и если я правильно понял, массив строк в моем случае будет выглядеть так:

procedure Tstartform.gs_start_pressedClick(Sender: TObject);
var
QM: array of array of string;
count_questions: integer;
begin
count_questions:=6;
setlength(massiv,count_questions);
 
setlength(massiv[0],7);
massiv[0,0]:='Choose Australia';
massiv[0,1]:='Ответ 1 на вопрос 1';
massiv[0,2]:='Ответ 2 на вопрос 1';
massiv[0,3]:='Ответ 3 на вопрос 1';
massiv[0,4]:='Ответ 4 на вопрос 1';
massiv[0,5]:='Ответ 5 на вопрос 1';
massiv[0,6]:='Ответ 6 на вопрос 1';
massiv[0,7]:='A1';   
 
setlength(massiv[1],7);
massiv[1,0]:='Choose Afrika';
massiv[1,1]:='Ответ 1 на вопрос 2';
massiv[1,2]:='Ответ 2 на вопрос 2';
massiv[0,3]:='Ответ 3 на вопрос 1';
massiv[0,4]:='Ответ 4 на вопрос 1';
massiv[0,5]:='Ответ 5 на вопрос 1';
massiv[0,6]:='Ответ 6 на вопрос 1';
massiv[0,7]:='A2';   
end;