Вчера начал кодить на Мидлет Паскале. Поэтому не ржать
Вот почему тут ошибка, понять немогу:
if userName <> 't9ote48te' Or kotName <> '7ion' then
вот в этой строке. Переменные объявлены так и до этого все идет так:
var okCommand:command;
nameField:integer;
kotField, label_id:integer;
userName:string;
kotName:string;
cm : command;
begin
okCommand := createCommand('Далее', CM_OK, 1);
showForm;
addCommand(okCommand);
setTicker('Simple Antivirus');
label_id := formAddString('Cracked by 7ion. Введенный ключ и имя оставьте в покое и жмите далее ;)');
kotField := formAddTextField('Введите имя', '7ion', 20, TF_ANY);
nameField := formAddTextField('Введите лицензионный ключ', 't9ote48te', 20, TF_ANY);
userName := formGetText(nameField);
kotName := formGetText(kotField);
if userName <> 't9ote48te' Or kotName <> '7ion' then
и еще - что в этой строке
kotField := formAddTextField('Введите имя', '7ion', 20, TF_ANY);
означает TF_ANY и что еще туда можно подставить? заранее спасибо.