Çíà÷èòñÿ òàê çàõîäèì â ìåíþ "Î ïðîãðàììå" è æìåì êíîïêó "2" 17 ðàç, à çàòåì îäèí ðàç "5". Âûëåçåò ÿè÷êî 8O . Åñëè ÷òî-òî íå òî íàæàëè - íàæèìàéòå "esc" è îïÿòü ïî íîâîé. Àëãîðèòì òàêîé - ñóììà íàæèìàåìûõ ñêàíêîäîâ äîëæíà äàòü 903, esc ñáðàñûâàåò ñ÷åò÷èê.
Âçÿë èç èñõîäíèêà.
procedure TaboutFrm.FormKeyPress(Sender: TObject; var Key: Char);
var
frm:TeasterFrm;
begin
if key=#27 then
eggCounter:=0
else
inc(eggCounter,ord(key));
if eggCounter=903 then
begin
frm:=TeasterFrm.create(NIL);
frm.show;
end;
end;