переделать блокиратор винды

[disik]

вообщем нужно срочно переделать блокиратор винды, исходник на делфи.
Сейчас разблокировка происходит так
Edit1.Text = Code если равны, то разблокируется
а нужно сделать так, если введенное число состоит из семи цифр и последняя цифра равна сумме двух первых, то разблокируется, сразу говорю исходник не даю, Я показываю Вам кусок кода, Вы мне говорите, что нужно поменять, проверяю, если все работает, то плачу мани.

цена:10$
ICQ: 379755805

 

[mause]

//тут проверка на то что в коде цифры, лучше написать, если и так есть то гуд
If Length(Edit1.text)=7 then 
  begin
   If (StrToInt(Edit1.text[1])+StrToInt(Edit1.text[2]))=StrToInt(Edit1.text[7]) then //*разблокировка*
  end;

Написал тока что, хз роблет нет, должно по идее, проверь.

 

[disik]

уже неактуально...