[MotoArhangel]

Необходимо нарисовать изолинии 4 зарядов расположенных на углах прямоугольника.
Посмотрел книжку:КОМПЬЮТЕРНЫЕ ТЕХНОЛОГИИ В ФИЗИКЕ 77 стр.
И не могу разобраться. Сделал по примеру:

Код:

function Poten(x,y:extended):integer;
 var
   q,r : extended;
 begin
   r:=sqrt(sqr(x-100)+sqr(y-100));
   Result:=Round(q/r);
 end;

procedure TForm1.Button1Click(Sender: TObject);
var
x,y,p:integer;
begin
x:=0;
while x < 100 do
  begin
    y:=0;
    while y < 100 do
      begin
        p:=Poten(x,y);
        if p>0 then
          begin
            Image1.Canvas.Pixels[x,y];
            y:=y+1;
          end;
        if p<=0 then
          begin
            Image1.Canvas.Pixels[x,y];
            y:=100;
          end;
      end;
     x:=x+1;
    end;
end;

Не работает=(