[MultiVan]

Как блокровать праграмму при нажатии на кнопке Button1

[NumLock]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Enabled:=False;
end;