этот код можно значительно упростить, но все же:
program ProjectAZ;
var fld1, fld2, resl, rez, last1, last2: integer;
OKbtn, clicked: command;
procedure slozhenie;
begin
ClearForm;
ShowForm;
OKbtn:=CreateCommand('OK', CM_SCREEN, 1);
AddCommand(OKbtn);
SetFormTitle('Сложение');
fld1:=formAddTextField('Введите A: ', integertostring(last1), 3, TF_NUMERIC);
fld2:=formAddTextField('Введите B: ', integertostring(last2), 3, TF_NUMERIC);
resl:=FormAddString('A+B='+integertostring(rez));
repeat
clicked := GetClickedCommand;
until clicked <> EmptyCommand;
last1:=stringtointeger(FormGetText(fld1));
last2:=stringtointeger(FormGetText(fld2));
rez:=last1+last2;
slozhenie;
end;
begin
slozhenie;
end.