Смена изображений и добавление текста

Can only modify an image if it contains a bitmap

    if(FileExists(PathList->Strings[Pos])){
        NoImage->Visible=false;
        Image1->Picture->LoadFromFile(PathList->Strings[Pos]);
        this->Caption="Изображение: "+ PathList->Strings[Pos];
    }else{
        Image1->Picture=NULL;
        NoImage->Visible=true;
        this->Caption="Изображение: НЕ найдено";
    }

double fact1 = (double)Image1->Picture->Height /(double)Image1->Height;
        double fact2 = (double)Image1->Picture->Width / (double)Image1->Width;
        if (fact2 < fact1) fact1 = fact2;
        int X1 = X*fact2;
        int Y1 = Y*fact2;
        Image1->Canvas->Font = FontDialog1->Font;
        Image1->Canvas->Brush->Style=bsClear;
        Image1->Canvas->TextOutW(X1,Y1,TextEdit->Text);
        AddText= false;

Image1->Bitmap = NULL; // Или так
Image1->Bitmap->Clear(0); // Или так

Image1->Picture->Bitmap=NULL;
    Image1->Picture=NULL;

        int X1 = X*fact2;
        int Y1 = Y*fact2;
        Graphics::TBitmap *bm = new Graphics::TBitmap;
        bm->Assign(Image1->Picture->Graphic);
        bm->Canvas->Font = FontDialog1->Font;
        bm->Canvas->Brush->Style=bsClear;
        bm->Canvas->TextOutW(X1,Y1,Edit5->Text);
        Image1->Picture->Assign(bm);
        delete bm;