Delphi-PRAXiS - Delphi Fraktale-Zoomfunktion

Kann mir einer von euch vielleicht helfen und mir sagen warum meine Zoomfunktion nicht wirklich gut funktioniert??
Wenn man einen imaginären Kasten aufzieht und somit in das Bild hineinzoomt wird das Bild immer weiter nach rechts verschoben, bis das komplette Bild schwarz ist!!

Prozedur zum Speichern der Position des Imaginären Zoomkastens(Startpunkte)

Code:

			procedure TFrmMain.PaintBoxMouseDown(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

begin

 ZoomStartX:= X;

 ZoomStartY:= Y;

end;

Prozedur zum Speichern der Position des Imaginären Zoomkastens(Endpunkte)
Neuen Werte werden in die EditFelder eingefügt und Bild neu Berechnet!

Code:

			procedure TFrmMain.PaintBoxMouseUp(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y: Integer);

var

  remin, remax, immin, immax,ZoomEndX,ZoomEndY: real;

begin

    remin := StrToFloat(EdtRealMin.Text);

    remax := StrToFloat(EdtRealMax.Text);

    immin := StrToFloat(EdtImgMin.Text);

    immax := StrToFloat(EdtImgMax.Text);

    EdtRealMin.Text := FloatToStr(getRe(Trunc(ZoomstartX), remin, remax, Paintbox.Width));

    EdtImgMin.Text := FloatToStr(getIm(Trunc(ZoomstartY), immin, immax, Paintbox.Height));

    ZoomEndX := X;

    ZoomEndY := Y;

    EdtRealMax.Text := FloatToStr(getRe(Trunc(ZoomendX), remin, remax, Paintbox.Width));

    EdtImgMax.Text := FloatToStr(getIm(Trunc(ZoomendY), immin, immax, Paintbox.Height));

    Application.ProcessMessages;

    BtnAufbauen.Click;

end;

Funktionen zur Berechnung der Realen Anteile im KoordinatenSystem

Code:

			function getRe(const x:integer;ReMin,ReMax,Breite:real):real;

Begin

 getRe := x / (Breite /(abs(ReMin) + abs(ReMax))) + ReMin;

end;

Funktion zur Berechnung der Imaginären Anteile im Koordinatensystem

Code:

			function getIm(const y:integer;ImMin,ImMax,Hoehe:real):real;

Begin

 GetIm := y / (Hoehe /(abs(ImMin) + abs(ImMax))) + ImMin; 

end;