[NumLock]

Код:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
...
procedure TForm1.FormCreate(Sender: TObject);

  procedure ProcedureBeep;

    procedure GraphicsStdCtrlsDialogs;
    begin
      Windows.Beep(1000, 100);
    end;

  begin
    GraphicsStdCtrlsDialogs;
  end;

begin
  ProcedureBeep;
end;