масштабируй по размеру формы
Код:
px,py,qx,qy:double; // масшабные множетели
...
x1; // минимальный X
y1; // максимальный Y
x2; // максимальный X
y2; // минимальный Y
left:=0; top:=0; right:=myForm.ClientWidth; bottom:=myForm.ClientHeight; // твоя форма
px:=(right-left)/(x2-x1); qx:=left-px*x1;
py:=(bottom-top)/(y2-y1); qy:=top-y1*py // здесь вычисляем масштабные множетели
...
function xs(x:double):integer;
begin // вычисляем экранные координаты
result:=round(px*x+qx);
end;
function ys(y:double):integer;
begin
result:=round(py*y+qy);
end;
...
//рисуем:
LineTo(xs(твой x),ys(твой y);