[v1s2222]

Код:

...
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
i,j,n:integer;
begin
p:=p+1;
label1.Caption:='сделанных ходов '+inttostr(p);

  TButton(Sender).Visible := False; // если ты это хотел...
end;