опять чтото не так вот код посмотрыте пожалуйста
var
a,b,c,d: integer;
cmdNext:command;
begin
ShowForm;
a:= FormAddTextField('введіть відповідь 1 ', '', 6, TF_ANY );
b:= FormAddTextField('введіть відповідь 2 ', '', 6, TF_ANY );
c:= FormAddTextField('введіть відповідь 3 ', '', 6, TF_ANY );
d:= FormAddTextField('введіть відповідь 4 ', '', 6, TF_ANY );
cmdNext:= CreateCommand('Go!', CM_OK, 1);
AddCommand(cmdNext);
repeat until GetClickedCommand = cmdNext;
clearform;
showcanvas;
if a=1 then
if b=1 then
if c=1 then
if d=1 then
DrawText('№1',0,22);
if a=0 then
if b=0 then
if c=0 then
if d=0 then
DrawText('№2',0,40);
repaint;
delay(2000);
end.