[lesya_ya]

помогите реализовать плиз:

в коде где-то ошибка, а вот где понять не могу:

Код:

procedure TForm1.ToBuild(x1,y,x2:integer);
var ax1,bx1,ax2,bx2:integer;
begin
  image1.Canvas.MoveTo(x1,y);
  image1.Canvas.LineTo(x2,y);
  ax1:=x1;
  bx1:=x1+round((x2-x1)/3);
  ax2:=x2-round((x2-x1)/3);
  bx2:=x2;
if round((x2-x1)/3)>=1 then exit;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ToBuild(5,20,605);
end;
end.

Админ: Пользуемся тегами для оформления кода!