Allmähliches Out-of-Resources-gehen bei Assign

[simlei]

Hio, ich hab n kleines Probleemchen:
Ich hab ein Bild das ich normalerweise Zeichne aus eben einer Zusammensetzung von Rects und Lines, und einem Rechteck, das darübergelegt wird. Das Bild außer dem Rechteck verändert sich nicht so oft, deswegen habe ich einen Parameter, der bestimmt, ob das Bild neu gezeichnet werden muss oder nicht ("neueAnsicht"). Wenn er true ist, wird das Bild normal neu gezeichnet und dann das Rechteck (ein Rahmen) darüber. Wenn false, dann wird das unter dem Rahmen ligenede Bild aus einer Bitmap geladen und das Rechteck darüber gezeichnet, was ja erheblich schneller geht als neu zeichnen (deshalb wirds gemacht).
Seit ich jedoch diese Bitmap drinnen habe, geht es eien Weil egut, dann zeichnet das Bild sich langsamer (neuzeichnen wird durch Mouseover ausgelöst, deshalb passiert das ziemlich oft, der Rahmen soll aber auch durch die Maus bewegt werden, deshalb unumgänglich) und irgenwann gibts nen OutOfResources-Error! Deutet alles auf ein Speicherleck hin

so nun finde ich es aber nicht... hier der Code, danke schonmal wer sich kurz darein fudelt und sich das ansieht:
PS: In meinen Versuchen habe ich das Bild nur 1x neugezeichnet - ganz am Anfang. Also wurde das "Grundbild" immer geladen und dann drübergezeichnet - bis irgendwann der Fehler kam.

Delphi-Quellcode:

    //Zeichnen der Werte  -Wenn Bedarf besteht.
    If neueAnsicht Then
    begin
     For i := roundedIndexBegin To roundedIndexEnde do
     begin
       X := Round( (i-roundedIndexBegin-verhaeltnisBeginn) * massstabX);
       Y := Round( friedmanresults[i]*massstabY );
       drawBalken( X, innerImageHoehe, Y, balkenstaerke, RGB(205, 205, 205), RGB(130, 130, 130), RGB(225, 10, 45), kappenstaerke, innerIMG, false);

       innerIMG.Canvas.Pen.Color := RGB(70, 200, 0);
       If (i-roundedIndexBegin) mod abstandText = 0 Then outerIMG.Canvas.TextOut(X+balkenstaerke div 2, outerImageHoehe-marginBottom+3, IntToStr(i-roundedIndexBegin+1));

       If i<roundedIndexEnde Then
       begin
        XNext := Round( ((i+1)-roundedIndexBegin-verhaeltnisBeginn) * massstabX);
        YNext := Round( friedmanresults[i+1]*massstabY );

        drawLine(X+balkenstaerke, innerImageHoehe-Y, XNext, innerImageHoehe-YNext, RGB(180, 180, 180), innerIMG);
       end;
     end;
     saveInnerBitmap.Assign(innerIMG);
     saveOuterBitmap.Assign(outerIMG);
    end
    //Wenn kein Grund zum Neuzeichnen besteht kann das Bild hier aus einer alten Bitmap geladen werden.
    else
    begin
     innerIMG.Assign(saveInnerBitmap);
     outerIMG.Assign(saveOuterBitmap);
    end;

    //Zeichnen des Rechtecks
    ImageFriedmanAnalyse.Cursor := crDefault;
    If ( mouseX > marginLeft ) And ( mouseY < innerImageHoehe-marginBottom ) And ( mouseX <> -1 ) And ( mouseY <> -1 ) Then
    begin
      innerIMG.Canvas.Brush.Style := bsClear;

      widthZoomRect := Round(zoomValue*innerIMG.Width);
      XZoomRect := mouseX-widthZoomRect div 2 - marginLeft;
      if XZoomRect < 0 Then XZoomRect := 0;
      if XZoomRect > innerIMG.Width-widthZoomRect Then XZoomRect := innerIMG.Width-widthZoomRect;

      innerIMG.Canvas.Pen.Color := RGB(30, 40, 90);
      innerIMG.Canvas.Rectangle(XZoomRect, 0, XZoomRect+widthZoomRect, innerImageHoehe);
      innerIMG.Canvas.Brush.Style := bsSolid;

      removedZoomRect := false;
    end;

    //Zuweisen der Bilder auf ein TImage.

    //Zeichnen des Bildes MIT Rechteck (Rahmen) auf ein TImage
    ImageFriedmanAnalyse.Canvas.Draw(0, 0, outerIMG);
    ImageFriedmanAnalyse.Canvas.Draw(marginLeft, 0, innerIMG);