type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure ButtonClicked(Sender: TObject); {Вот это обработчик событий нов. кнопки}
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
But: Tbutton; {Определяем имя новой кнопки...Name если чё...}

implementation

{$R *.dfm}

procedure TFORM1.ButtonClicked(Sender: TObject); {процедура для новой кнопки}
begin
ShowMessage('Pruvet');
end;

procedure TForm1.Button1Click(Sender: TObject); {на форме уже есть кнопка, мы на неё щёлкаем и создаётся новая...}

begin
but:=Tbutton.Create(Form1); {Просим Делфи создать кнопку, владелец которой - форма Form1}

but.Parent:=Self; {Вот это обязятельно}
but.Left:=280; {Теперь параметры)
but.Top:=100;
but.Height:=25;
but.Width:=120;
but.Visible:=true;
but.Caption:='Vot ona knopka';
but.OnClick:=ButtonClicked; {Теперь определяем имя процедуры, которая будет использоваться при нажатии на новую кнопку}
end;

end.

на клаве еще может быть... а вот на системнике никак...только скотчем заклеить...

Вообще написать смогу.

Бюджет как обычно???

==========================
|| update ||
==========================

Как раз нашел интересный метод блокировки...
Аж прям вирь захотелось написать:)
способ, кому интересно, MS Gina Fake называется.

Системные комбинации
ALT + ESC
ALT + TAB
CTRL + ESC
Win
CTRL + ALT + DEL (если драйвер спецовый поставить - работает после перезагрузки)

Мышь
правую и левую кнопки

Всю клаву целиком (долго маялся - разблокируется только перезагрузкой - сложно проверять:) Заблочишь сам себе и мучаешься:)

Рабочий стол
Панель задач
Меню пуск
Трэй

Сейчас тестирую блокировку выключения - когда выключение происходит по вызову какой нить проги.

Добавлено (23.07.09, 20:31)
---------------------------------------------
А как блоки снимать? Если все заблочить, резетоо шо ли? Или отключением питания? Проще было вин+L и пасс из трех букв. И никакого гемора и изобретения фанариков на солнечных батарейках..

Мне дано все, чтобы жить возвышенной жизнью. А я гибну в лени, разврате и мечтании.
@Даниил Хармс

Это пока в разработке. Я имел ввиду всю клаву - кроме сочетания горячих клавиш. Иначе смысла нет.

}{akeR,

по сочетанию ctrl+shift+b.