[AlexKop]

Всем привет.
Нужна ваша помощь с программой
вот часть кода, всё что смог, и вроде событие OnPaint надо было, моя вина

PHP код:

procedure TForm1.Button2Click(Sender: TObject);
begin
  with canvas do
    begin
      moveto (10,10);
      pen.color:=clblack;
      lineto (10,400);
      moveto (10,400);
      lineto (400,400);
      pen.Style:=psDot;
      i:=10;
      while i<400 do
        begin
          moveto(i,10);
          lineto(i,400);
          moveto(10,i);
          lineto(400,i);
          i:=i+30;
        end;
    end;
  a:=strtoint(listbox1.items[0])*30;
  b:=strtoint(listbox1.items[1])*30;
  edit1.text:=listbox1.Items[0];
  edit2.Text:=listbox1.Items[1];
  listbox1.Items.Delete(0);
  listbox1.Items.Delete(0);
  with canvas do
  begin
    pen.Style:=psSolid;
    moveto(x,y);
    lineto(10+a, 400- b);
    x:=10+a;
    y:=400-b;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  x:=10;
  y:=400;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  with canvas do
    begin
      pen.Style:=psSolid;
      moveto(x,y);
      lineto(10+a, 400- b);
      x:=10+a;
      y:=400-b;
    end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  button2.Enabled:=true;
  listbox1.items.LoadFromFile(filelistbox1.FileName);
end; 


и сам исходник
http://zalil.ru/31851596
Не знаю как сделать, что бы на шкале были цифры, и в зависимости от того, слишком большая кордината или слишком маленькая, подбирался определённый масштаб.
Спасибо заранее