Утечка памяти. Функция работы с изображениями выполняется в стороннем потоке.

String Images(int ind, String cm, int cm1)
{
    TStringList *kaka=new TStringList;
    Graphics::TBitmap *bmp1=new Graphics::TBitmap;
    Graphics::TBitmap *bmp=new Graphics::TBitmap;
    TJPEGImage *jpegi;
    TMemoryStream *stream ;
    TMemoryStream *buffer ;
    String link;
    TRect rect;
    cm.Delete(cm1,7);
    link=cm;
    link.Delete(1,cm1-1);
    int kl=link.Pos("}");
    link.Delete(kl,link.Length()-kl+1);
    cm.Delete(cm1,link.Length()+1);
    if(Form1->PathOfImageIn[ind]!=""){
      String cm2[100];
      widthImageOt[ind]=Form1->globalWidthPictureOt[ind];
      widthImageDo[ind]=Form1->globalWidthPictureDo[ind];
      compressOt[ind]=Form1->globalJPEGCompressOt[ind];
      compressDo[ind]=Form1->globalJPEGCompressDo[ind];
      widthCanvasOt[ind]=Form1->globalWidthCanvasOt[ind];
      widthCanvasDo[ind]=Form1->globalWidthCanvasDo[ind];
      heightCanvasOt[ind]=Form1->globalHeightCanvasOt[ind];
      heightCanvasDo[ind]=Form1->globalHeightCanvasDo[ind];
      moveXOt[ind]=Form1->globalMoveXOt[ind];
      moveXDo[ind]=Form1->globalMoveXDo[ind];
      moveYOt[ind]=Form1->globalMoveYOt[ind];
      moveYDo[ind]=Form1->globalMoveYDo[ind];
      rezatNaOt[ind]=Form1->globalCutPictureOt[ind];
      rezatNaDo[ind]=Form1->globalCutPictureDo[ind];
 
      int widthImage,compress,moveX,moveY,widthCanvas,heightCanvas,rezatNa;
      double W,H;
 
      moveX=moveXOt[ind]+rand()%(moveXDo[ind]-moveXOt[ind]+1);
      moveY=moveYOt[ind]+rand()%(moveYDo[ind]-moveYOt[ind]+1);
      rect.Left = moveX;
      rect.Top = moveY;
 
      widthCanvas=widthCanvasOt[ind]+rand()%(widthCanvasDo[ind]-widthCanvasOt[ind]+1);
      heightCanvas=heightCanvasOt[ind]+rand()%(heightCanvasDo[ind]-heightCanvasOt[ind]+1);
 
      bmp->LoadFromFile(Form1->PathOfImageIn[ind]);
      bmp->Dormant();
      bmp->FreeImage();
 
      W = bmp->Width;
      H = bmp->Height;
      widthImage=widthImageOt[ind]+rand()%(widthImageDo[ind]-widthImageOt[ind]+1);
      rect.Bottom = H / W * widthImage+moveY;
      rect.Right = widthImage+moveX;
 
      bmp1->PixelFormat=pf24bit;
      bmp1->HandleType=bmDDB;
      bmp1->Width=widthCanvas;
      bmp1->Height=heightCanvas;
      compress=compressOt[ind]+rand()%(compressDo[ind]-compressOt[ind]+1);
      StretchBlt(bmp1->Canvas->Handle,moveX,moveY,widthImage+moveX,H / W * widthImage+moveY,bmp->Canvas->Handle,0,0,W,H,SRCCOPY);
      bmp1->Dormant();
      bmp1->FreeImage();
 
      rezatNa=rezatNaOt[ind]+rand()%(rezatNaDo[ind]-rezatNaOt[ind]+1);
      int heightNaRazrez[200];
      heightNaRazrez[0]=-1;
      int ww[100],hh[100];
      String id[100];
      for(int i=0;i<rezatNa;i++){
        TRect SrcRect;
        TRect DstRect;
        stream = new TMemoryStream;
        buffer = new TMemoryStream;
        Graphics::TBitmap *bmp3=new Graphics::TBitmap;
        jpegi=new TJPEGImage();
        bmp3->PixelFormat=pf24bit;
        bmp3->HandleType=bmDIB;
        kaka->Clear();
        id[i]=IntToStr(_lrand()%1000000000)+"@"+IntToStr(_lrand()%100000000)+"-"+IntToStr(_lrand()%10000);
        heightNaRazrez[i+1]=heightNaRazrez[i]+1+heightCanvas/rezatNa+rand()%int(0.1*heightCanvas/rezatNa)-rand()%int(0.1*heightCanvas/rezatNa);
        if(i==rezatNa-1) heightNaRazrez[i+1]=heightCanvas;
        SrcRect = Rect(0, heightNaRazrez[i]+1, bmp1->Width, heightNaRazrez[i+1]);
        DstRect = Rect(0, 0, bmp1->Width, heightNaRazrez[i+1]-heightNaRazrez[i]-1);
        bmp3->Width = DstRect.Width();  ww[i]=bmp3->Width;
        bmp3->Height = DstRect.Height();  hh[i]=bmp3->Height;
 
        BitBlt(bmp3->Canvas->Handle,0,0,bmp3->Width,bmp3->Height,bmp1->Canvas->Handle,0,heightNaRazrez[i]+1,SRCCOPY);
 
        jpegi->CompressionQuality = compress;
        jpegi->Assign(bmp3);
        //jpegi->SaveToFile(ExtractFileDir(ParamStr(0))+"\\image"+IntToStr(i)+" "+IntToStr(_lrand()%100000)+".jpg");
        jpegi->SaveToStream(buffer);
        buffer->Position=0;
        stream->Position=0;
        Form1->IdEncoderMIME1->Encode(buffer,stream,buffer->Size+1);
        buffer->Position=0;
        stream->Position=0;
        kaka->LoadFromStream(stream);
        cm2[i]=kaka->Text;
        delete jpegi;
        delete bmp3;
        delete stream;
        delete buffer;
      };
      //тут формируется cm не важно как в принципе... просто складывается текст
 
      delete kaka;
 
    };
    delete bmp;
    delete bmp1;
    return cm;
}

compress=compressOt[ind]+rand()%(compressDo[ind]-compressOt[ind]+1);

TStringList *kaka=new TStringList;

    delete kaka;