Импер, тут так просто не получится.
Можно примерно так:
var
code:String;
key:Integer;
begin
code:='0000';//если код четырехзначный
while true do//главный цикл с обработкой клавиатуры
begin
key:=GetKeyClicked;
//здесь проверяем key как клавишу управления
Delete(code,Length(code)-1,1);//удаляем последний символ из строки с нажатыми клавишами
Code:=CHR(Key+64)+code;//помоему +64, по таблице символов смотреть надо
if code='1111' then
begin
//Что-то делаем
end;
end;
end;
Примерно так, хотя мог напутать где-то