[UA6BIX]

Написал программу но она не работает так как нужно.
Вот программа.
var okCommand:command;
c:integer;
c1:string;
begin
{ Создание формы на экране }
okCommand := createCommand('OK', CM_OK, 1);
showForm;
addCommand(okCommand);
c:= formAddTextField('частота', '', 2, TF_numeric);
{ ожидание, пока пользователь нажмёт кнопку OK }
while (getClickedCommand <> okCommand) do
delay(100);
showCanvas;
c1:=''+c;
drawText(c1,10,0);
repaint;
delay(20000);
end.

Подскажите как выводить цифровую инфо.
Там потом ещё вычисления будут.