TrackBar Zoomen in einer Paintbox

[Blubbel]

Hallo und guten Morgen,

Ich hoffe ich nerve euch nicht langsam aber jetzt habe ich ein neues Problem, wo ich im Internet nicht so recht was nützliches gefunden habe.

Ich soll eine Trackbar zum Zoomes einfügen. Habe auch schon einiges versucht, es klappt aber nichts.

Delphi-Quellcode:

rocedure TForm1.TrackBar1Change(Sender: TObject);
begin
  case TrackBar1.Position of
  0:
  begin
    PaintBox1.Width:= 100 + TrackBar1.Position;
  end;
  1:
  begin
    PaintBox1.Width:= 200 + TrackBar1.Position;
  end;
  end;

Bisher habe ich sowas versucht.

Bitte um Hilfe
Danke euch schon mal