Нажатие 1 кнопки активацие 2-й

[kroŧ]

Подскажите как можно сделать нажатие кнопки
необходимо чтобы при нажатие кнопки Button(стрелочка вниз) происходила нажатие OnClick по картинке Image1 при нажатие по Button(стрелочка вниз) 2 раз нажатие OnClick по Image2

делфи только учу, люди добрые скажите как это сделать

[Alex2009]

Вот держи исходник

[Terran]

Var
S: Integer;
Procedure TForm1.FormCreate(Sender: TObject);
Begin
S:=0;
End;
Procedure TForm1.Button1Click(Sender: TObject);
Begin
Inc(S);
Case S Of
1: Image1.OnClick(Self);
2: Image2.OnClick(Self);
End;
End;

[Alex2009]

Зачем все так сложно???Чем меньше код,тем удобней потом найти ошибку.