TImage 10x vergrößern

[Karstadt]

Hallo. Lade ein Bild in TImage und durch schiebebalken soll das Bild vergrößert sein. Weist jemand wie man am schlauesten macht?


Ich verschieben den TTrackBar:

Delphi-Quellcode:

procedure Tf_kalkulation_schaden.tbr_zoomChange(Sender: TObject);
begin

  IF tbr_zoom.Position > Position Then // Vergrößern
  begin
    Image.Height := Image.Height+50;
    Image.Width := Image.Width+50;
  end;

  IF tbr_zoom.Position < Position Then // Verkleinen
  begin
    Image.Height := Image.Height-50;
    Image.Width := Image.Width-50;
  end;

  Position := tbr_zoom.Position; // Position ist eine Globale Variable von Typ Integer

end;

Mein Problem ist, wenn ich das Bild auf maximum vergröße und dann zurück gehe, habe ich nicht die Bildgröße, dich ich anfangs hatte.