Что тут не то? Звонок

[Rock2roll]

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;"

[PacMan]

i объявлена? О_о

[Rock2roll]

Всё объявлено.

[Rock2roll]

error, ' . ' operator can only be used on record types.

[cherepets]

Проверь call в uses.
И отсутствие переменных с таким же названием.

[Rock2roll]

cherepets, нашел, пофиксил. Спасиб.

[Rock2roll]

Помогите с формой. Никогда с ними не дружил.
Идея: открывается форма. Там есть команды "Звонок" и "Назад". Поле ввода номера. При нажатии "Звонок", посылка вызова. При нажатии "назад"- возврат к процедуре workspace.
Буду очень благодарен

[alexprey]

Смотри хелп по MP есть есть про создание и обработку форм