[stil]

Код:

var x1,y1,i:integer;
begin
try
  StrToInt(edit1.Text);
except
  edit1.Text:='0';
end;
try
  StrToInt(edit2.Text);
except
  edit2.Text:='0';
end;
x1:=10;
y1:=Edit1.Height+Edit1.Top+10;
Edit3.Text:=IntToStr(StrToInt(Edit1.Text)+StrToInt(Edit2.Text));
Canvas.Brush.Color := ClBtnFace;
Canvas.FillRect(Canvas.ClipRect);
Canvas.Brush.Color:=clRed;
for i:=1 to StrToInt(edit3.text) do begin
  if x1+20>form1.ClientWidth then begin
    y1:=y1+30;
    x1:=10;
  end;
  form1.Canvas.Ellipse(x1,y1,x1+20,y1+20);
  x1:=x1+30;
end;

И что там про проверку что проверять, и с чем