[Bruteo]

В хэлпе всё расписано с примерами. Пример оттуда:
Либо через текстбокс:

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.

Либо через текстовое поле:

var gauge_id, value: integer; 
begin 
   text_id :=FormAddTextField('Enter your name', 'Mr.Smith', 20, TF_ANY); 

    ShowForm; 
    value := FormGetValue(text_id); 
    Delay(2000); 
end.