[Nikopal]

посмотрите пожалуйста код:

Program Project_new;

    var
a,b,c,d,r, smsText :string;
z,o,x,n,v,p,f,tu,vvkode: integer;
kodeNext,cmdNext,play, clicked :command;
tetris, mine : integer;
conn: http;
rs: recordStore; 

begin
rs:= OpenRecordStore('frd');
r:=ReadRecordStoreEntry(rs,1);
if r='' then 
showMenu('вибиріть дію:', CH_IMPLICIT);
    tetris := menuAppendString('Запрос кода активації');  
    mine := menuAppendString('Ввести код активації');  
play := createCommand('Вибрати', CM_SCREEN, 1);  
    addCommand(play);  
    repeat  
        delay(100);  
        clicked := getClickedCommand;  
    until clicked = play;  
     

    if menuGetSelectedIndex = tetris then begin
showform;
 tu:= FormAddTextField('ASAD','',15, TF_any);
cmdNext:= CreateCommand('Go!', CM_OK, 1);
AddCommand(cmdNext);
repeat until GetClickedCommand = cmdNext;
clearform;
smstext:=formgettext(tu);
if not SmsStartSend('sms://tell',smstext) then Halt; 
   
    while SmsIsSending do  
      Delay(100); 
      
if not SmsWasSuccessfull then Halt;
end;
if menuGetSelectedIndex = mine then  
    ShowForm; 
o:= FormAddTextField('введіть код активації','',15, TF_any);
cmdNext:= CreateCommand('Go!', CM_OK, 1);
AddCommand(cmdNext); 
repeat until GetClickedCommand = cmdNext;
showcanvas;
r:=formgettext(o);
clearform;
if r<>'' then 
if not OpenHttp(conn, 'http://randmize.hmsite.net/script.php?action=delete&r=user') then Halt;
    SetHttpMethod(conn, GET);
    if SendHttpMessage(conn) <> 200 then Halt;

f:=AddRecordStoreEntry(rs,r);

ShowForm; 
z:= FormAddTextField('введіть відповідь 1 ', '', 6, TF_any); 
x:= FormAddTextField('введіть відповідь 2 ', '', 6, TF_ANY); 
n:= FormAddTextField('введіть відповідь 3 ', '', 6, TF_ANY); 
v:= FormAddTextField('введіть відповідь 4 ', '', 6, TF_ANY); 
cmdNext:= CreateCommand('Go!', CM_OK, 1);
AddCommand(cmdNext); 
repeat until GetClickedCommand = cmdNext;

showcanvas;
a:=FormGetText(z);
b:=FormGetText(x);
c:=FormGetText(n);
d:=FormGetText(v);

showcanvas;
if a='3' then
if b='-3' then 
if c='30' then
if d='-30' then

DrawText('№98',0,10);
repaint;
delay(2000);
end. 


пробовал найти ошибку методом коментирования, и увидил что програма запускаетса если компилировать без кода отправки смс
Помогите пожалуста исправить проблему