[Yurk@]

Сообщение от ariane

Желательно, да! Это ограничивающий фактор, иначе некоторые товарищи будут сидеть до вечера, пока не введут правильную комбинацию. Переберут все буквы, цифры)

В данном случае целесообразно будет сочетание метода case ... of и проверки от MegaPiha.
Примерно так:

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9',#8,#47,#92,#43,#45 :;
else
Key:=Chr(0);
end;
end;

и

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = '/ \ + - 0 1' then
Label1.Caption:='super super '
else
Label1.Caption:='Oi, ne super'
end;