- procedure TfrmXY.DrawVertex(V: Tvertex);
 - var
 - r : TRect;
 - begin
 - r.Left :=ScrollBarZoomX.Position + Round(+v.fx *FZoom);
 - r.Top :=ScrollBarZoomY.Position + Round(-v.fy *FZoom);
 - r.Right := r.Left + Round(VerticesDraw.Size * 200);
 - r.Bottom := r.Top +Round(VerticesDraw.Size * 200);
 - FVertexList.AddObject(inttostr(r.Left)+','+inttostr(r.Top),TObject(V));
 - FBackPuffer.Canvas.Brush.Color := v.DrawColor;
 - FBackPuffer.Canvas.FillRect(r);
 - end;
 

