procedure TForm1.Button1Click(Sender: TObject); begin Button1.enabled:=false; {тело процедуры} Button1.enabled:=true; end;
