powiekszenie wykresu

Po naryowaniu wykresu chce miec suwak przy pomocy ktorego bede mogl zmniejszac lub powiekszac ten wykres. Robie to w ten sposob:

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
begin
skala := TrackBar1.Position;
if skala = 0 then skala := 0.5;
if skala = -1 then skala := 0.25;
if skala = -2 then skala := 0.1;
zoom.caption := FloatToStr(skala)+ 'x';
end;
end;

Suwak działa ale w ten sposób, że gdy go przesune i kline jeszcze raz zeby narysowac wykres to dopiero wtedy rysuje wykres w nowej skali, a ja chce zeby po narysowaniu przesuwajac suwak zmieniac rozmiar wykresu. Czy ktos może mi podpowiedzieć co robie nie tak ??

Jaki wykres? TChart, własny? Wiecej info

Wykres rysuje tak:

for i:= 0 to d do
begin
x2 := round(10+(1030/d)*i);
y2 := round(200-skala*100*(Tab[i]-1));
MyBitmap.Canvas.LineTo(x2, y2);
PaintBox2.Canvas.Draw(0,0,MyBitmap);
end;

skaluje tak

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
begin
skala := TrackBar1.Position;
if skala = 0 then skala := 0.5;
if skala = -1 then skala := 0.25;
if skala = -2 then skala := 0.1;
zoom.caption := FloatToStr(skala)+ ' x';

PaintBox2.Canvas.CopyRect(Rect(0,0,1060,400),MyBitmap.Canvas,Rect(0,0,1060,400));
end;