[temned]

Просто поставь
name1:=FormGetText(form1);
name2:=FormGetText(form2);
перед
a:=StringToInteger(name1);
b:=StringToInteger(name2);

РЕЗУЛЬТАТ:
var
button_quit:command;
button_main:command;
name1,name2:string;
form1,form2:integer;
itog:integer;
a,b:integer;
begin
//-----
showform;
form1:=FormAddTextField('Enter a','0',20,TF_ANY);
form2:=FormAddTextField('Enter b','0',20,TF_ANY);

//-----
button_main:=CreateCommand('Nachat',CM_OK,1);
AddCommand(button_main);
repeat until GetClickedCommand = button_main;
//-----
name1:=FormGetText(form1);
name2:=FormGetText(form2);
a:=StringToInteger(name1);
b:=StringToInteger(name2);
showcanvas;
itog:=a+b;
drawtext('Suma '+itog,0,0);
//-----
button_quit:=CreateCommand('Vixod',CM_EXIT,1);
AddCommand(button_quit);
repeat until GetClickedCommand = button_quit;
end.