number:=FormAddTextField('Кому','',12, TF_PHONENUMBER );
только добавляет текстовое поле на форму, возвращая в
number его
идентификатор, а не введенное значение. Для получения значения нужно использовать примерно такой код:
var
nID:integer;
number:String;
ok:Command;
begin
ShowForm;
nID:=FormAddTextField('Кому','',12, TF_PHONENUMBER );
ok:=CreateCommand('OK',CM_OK,1);
AddCommand(ok);
repeat
Delay(100);
until GetClickedCommand=ok;
number:=FormGetText(nID);
Только после этого при нажатии OK получим введенный номер в переменной
number.