var cont : command;
quote : string;
begin
showTextBox('Enter message, '', 200, TF_ANY);
cont := createCommand('Send', CM_SCREEN, 1);
addCommand(cont);
repeat
delay(100);
until getClickedCommand <> emptyCommand;
quote := getTextBoxString;
...
end.
вот не понимаю куда здесь будет записываться числа?