EOutOfResources

Hej

Jeg har et stort problem. Jeg har lavet et program, som generere en række af forskellige figurer, og gemmer dem, som JPG filer. Mit problem er at jeg får en EOutOfResources efter et stykke tid (varierer fra gang til gang). Jeg har testet min program, for at se om det bliver ved med at allokere ny hukommelse, men det ser ikke sådan du. Den del der giver problemer er:

    for i:=1 to AntalBilleder do
     begin
      GemJPEG:=TJPEGImage.Create;
      GemJPEG.Grayscale:=true;
      GemJPEG.Smoothing:=false;
      GemJPEG.CompressionQuality:=100;
      //Reset imageFigur til nyt billede
      FormFigur.StatusBar1.Panels[1].Text:='Lavet billede nr. '+IntToStr(i)+' af '+IntToStr(AntalBilleder);
      FormFigur.StatusBar1.Panels[2].Text:=IntToStr(round(i/AntalBilleder*100))+'%';
      FormFigur.StatusBar1.Repaint;
      ClearPic;
      LavBillede(Rektangler);
      TegnAktuelFigur;
      GemJPEG.Assign(FormFigur.ImageFigur.Picture.Bitmap);
       FormFigur.Label4.Caption:=IntToStr(GetHeapStatus.TotalFree)+'/'+IntToStr(GetHeapStatus.TotalAllocated);
      GemJPEG.SaveToFile(sti+'\\'+navn+LavNavn(i)+'.JPEG');
      //GemJPEG.
      GemJPEG.Free;
    end;

Fejlen kommer lige efter :

GemJPEG.SaveToFile(sti+'\\'+navn+LavNavn(i)+'.JPEG');

Håber der er nogle der kan hjælpe. Hvis man har brug for at se hele koden, kan den downloades på: www.student.dtu.dk/~s032641/Figur.zip

T dér