[VotapilD]

Вот пример ввода:

program HelloForm; 
 var itemId : integer;
      cmdNext : command;  
      cmdQuit : command;
      name : string;
 begin   
	// switch to form mode from default canvas mode   
 ShowForm;  
	// add a text field to the form    
 itemId := FormAddTextField('Enter your name', '', 20, TF_ANY);     
  	// create a command (button) 
 cmdNext := CreateCommand('Go!', CM_OK, 1);
 AddCommand(cmdNext);
        // wait until the user clickes on Go! command
 repeat until GetClickedCommand = cmdNext;       // retrieve the entered name 
 name := FormGetText(itemId);       // switch back to canvas mode and draw the text 
 ShowCanvas;
 DrawText('Hello, ' + name + '!', 0, 0);
 Repaint;
     	// create a quit command
 cmdQuit := CreateCommand('Quit', CM_EXIT, 1);
 AddCommand(cmdQuit);
 repeat until GetClickedCommand = cmdQuit; 
End.

Тут вводиццо имя через форму(itemId := FormAddTextField('Enter your name', '', 20, TF_ANY); ) и потом выводится в canvas - drawtext('Hello, '+name+'!',0,0);
Ну, должно быть понятно.... А так, Help=>Manual