Fraktale-Zoomfunktion

[Stillmatic]

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;