Procedure call_on;
begin
clearForm;
CallCommand:=createCommand('Вызов',CM_OK,1);
showForm;
addCommand(CallCommand);
num:=formAddTextField('Звонок на номер','+380',13,TF_PHONENUMBER);
repeat
clicked:=getClickedCommand;
until clicked=CallCommand;
numb:=formGetText(num);
i:=call.Phone(''+numb);
showCanvas;
workspace;
end;
как сделать чтобы можно было выйти не осуществив вызов?