[dr. F.I.N.]

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

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

Код:

procedure TF_Test.Button1Click(Sender: TObject);
begin
if SecondClick then
begin
  if (LastButton.Tag = TButton(Sender).Tag) and (LastButton <> TButton(Sender))
  then
  begin
    LastButton.Hide;
    TButton(Sender).Hide;
    Inc(c);
    Inc(r);
    If r=1 then
       BitBtn1.Visible:=true;
  end
  else
   begin
    Inc(e);
    ShowMessage('Не верно');
    str(e,et);
    label1.caption:=et;
  end;
  SecondClick := false;
end
else
begin
  LastButton := TButton(Sender);
  SecondClick := true;
end;

Кстати, я об этом предупреждал

...Не забудь еще проверить нюансы типа нажатия на одну и ту же кнопку 2 раза и т.п....