Procedure call_on;
begin
CallCommand:=createCommand('Вызов',CM_OK,1);
//ExitCommand:=createCommand('Назад',CM_EXIT,2);
showForm;
addCommand(CallCommand);
//addCommand(ExitCommand);
num:=formAddTextField('Звонок на номер','+380',13,TF_PHONENUMBER);
numb:=formGetText(num);
while (getClickedCommand<>CallCommand) do begin i:=call.Phone(''+numb); end;
//while (getClickedCommand<>ExitCommand) do workspace;
end;
выдаёт ошибку на строке "while (getClickedCommand<>CallCommand) do begin i:=call.Phone(''+numb); end;"