Проблема с реализацией логики в игре "парные картинки"

[Zaher]

При компиляции возникают ошибки с постановкой Begin и end. Компилятор жалуется на, то, что слишком много end-ов и надо их удалить, а если сделаешь это, получается вообще ерунда.

procedure TForm1.FormClick(Sender: TObject);
var
Kord:TPoint; //Для координат клика
Pict: TBitMap; 
begin
GetCursorPos(kord);
if(hod<18) then // hod предварительно обнуляется один раз
  begin
    if (Form1.Tag=0) then // Проверяю сколько картинок открыто, если true то 1 иначе 2
      begin
      x1:=Kord.X-Form1.Left; 
      y1:=Kord.Y-Form1.Top;
      Form1.Tag:=1;
      ImageList1.GetBitmap(a[x1][y1],pict);
      Form1.Canvas.Draw(x1,y1,pict);
      end
    else
      begin
        x2:=Kord.X-Form1.Left;
        y2:=Kord.Y-Form1.Top;
        Form1.Tag:=1;
        ImageList1.GetBitMap(a[x2][y2],pict);
        Form1.Canvas.Draw(x2,y2,pict);
          if (a[x1][y1]=a[x2][y2]) then //если картинки одинаковые то они прорисовываются иначе снова зарисовываются
            ImageList1.GetBitmap(a[x2][y2],pict);
            Form1.Canvas.Draw(x1,y1,pict);
            Form1.Canvas.Draw(x1,y1,pict)
          else
            begin
              ImageList1.GetBitmap(0,pict);
              Form1.Canvas.Draw(x1,y1,pict);
              Form1.Canvas.Draw(x1,y1,pict);
            end;
      end;
  end
else // если конец игры то рисуется новая картинка на всё окно
  begin
    ImageList1.GetBitmap(6,pict);
    Form1.Canvas.Draw(0,0,pict);
  end;

[Stilet]

ну тебе еще одного end не хватает

[Zaher]

Нет в коде последний end. есть просто я его в вопрос не вписал.

[mutabor]

if (a[x1][y1]=a[x2][y2]) then //если картинки одинаковые то они прорисовываются иначе снова зарисовываются
begin
ImageList1.GetBitmap(a[x2][y2],pict);
Form1.Canvas.Draw(x1,y1,pict);
Form1.Canvas.Draw(x1,y1,pict)
end

[nastyaolen]

Помогите мне пожалуйста....
Скиньте кто нибудь исходники парные картинки.. очень надо.. ПОЖАЛУЙСТА=(((((