Загрузка - опознавание файла картинки (правильная ли это лестница)

if(ParamCount()==1)//----перетаскиванием на екзешник или двойным щелчком по ИКОНКЕ -----
        {
        Form1->Top=0; Form1->Left=0;
 
 Form1->OnMouseUp=EvMousUp; Form1->OnMouseDown=EvMousDown;//<====== Два мышиных события ????
 z_bmp=new Graphics::TBitmap;
             //-------------------------------------------
         //==============
                    try{
    if( ExtractFileExt(ParamStr(1)).LowerCase()==".jpg"  ||
        ExtractFileExt(ParamStr(1)).LowerCase()==".jpeg"){
  TJPEGImage *jp = new TJPEGImage();
jp->LoadFromFile(ParamStr(1));
        z_bmp->Assign(jp);
                    form_position();
             Form1->Timer3->Enabled=true; // Рисунок на канву
                  delete jp;
           } else {
     if(ExtractFileExt(ParamStr(1)).LowerCase()==".bmp"){
z_bmp->LoadFromFile(ParamStr(1));
                     form_position();
                Form1->Timer3->Enabled=true; // Рисунок на канву
           } else {
      //==============
    if (ExtractFileExt(ParamStr(1)).LowerCase()==".gif"){
 TGIFImage *Gif=new TGIFImage;
Gif->LoadFromFile(ParamStr(1));
 Gif->Animate=true; Gif->AnimationSpeed=85;
    z_bmp->Assign(Gif); protect=true;
                    form_position();
                   pict_change(Gif);// Вызываеться функция создавающая Image
          delete Gif;         //  и грузящая в него Gif.
          } else {
      //==============
    if (ExtractFileExt(ParamStr(1)).LowerCase()==".png"){
TPngImage *Png=new TPngImage;
Png->LoadFromFile(ParamStr(1));
         z_bmp->Assign(Png); protect=true;
                    form_position();
                   pict_change(Png);// Вызываеться функция создавающая Image
    delete Png;                        //  и грузящая в него Png.
          } else {
        //==============
    if (ExtractFileExt(ParamStr(1)).LowerCase()==".ico"){
           TIcon* ico=new TIcon; // иконка на Stretch не реагирует
 ico->LoadFromFile(ParamStr(1));
         z_bmp->Assign( ico);
                    form_position();
                   pict_change(ico);// Вызываеться функция создавающая Image
          // z_bmp->Assign(ico);
        // form_position();  ( Иконка не растягиваеться.. на канве растягиваеться )
     delete ico;
            } else throw -1; // Если ни одно расширение не совпало возбуждает исключение
                }    }   }   } // И попёрло проверять вставляя в контейнеры
                 }
                 catch(...){
                 try{
     TJPEGImage *jp = new TJPEGImage(); jp->LoadFromFile(ParamStr(1));
 z_bmp->Assign(jp); form_position(); Form1->Timer3->Enabled=true;
                  delete jp;
                  }
                  catch(...){
                  try{
          z_bmp->LoadFromFile(ParamStr(1));
                     form_position();
                Form1->Timer3->Enabled=true;
                    }
                 catch(...){
                 try{
           TGIFImage *Gif=new TGIFImage;
Gif->LoadFromFile(ParamStr(1));
 Gif->Animate=true; Gif->AnimationSpeed=85;
    z_bmp->Assign(Gif); protect=true;
                    form_position();
                   pict_change(Gif);
          delete Gif;
                    }
                 catch(...){
                 try{
             TPngImage *Png=new TPngImage;
      Png->LoadFromFile(ParamStr(1));
         z_bmp->Assign(Png); protect=true;
                    form_position();
                   pict_change(Png);
                     delete Png;
                      }
                 catch(...){
                 try{
          TIcon* ico=new TIcon;
 ico->LoadFromFile(ParamStr(1));
         z_bmp->Assign( ico);
     form_position();  pict_change(ico);
                delete ico;
             } catch(...){Application->Terminate();}
            }  }  }  }  } // Не совпало ни в один контейнер Terminate()
 
//---------------------------------------------------------------------------
        ///////////// ФУНКЦИЯ
 void form_position(){ // Делает пропорциональные размеры формы
     Form1->Width=z_bmp->Width; Form1->Height=z_bmp->Height;//<--Форма по TImage
          PicProp_H=z_bmp->Height; PicProp_W=z_bmp->Width;
     if(z_bmp->Height>Screen->Height)
{//-----если высота Image1 больше экрана то высота по экрану ширина по пропорции
      float kf=PicProp_H/PicProp_W; PicProp_H=Screen->Height;
      PicProp_W=PicProp_H/kf;
   Form1->Height=floor(PicProp_H); Form1->Width=floor(PicProp_W);
     } }
 
         ///////////// ФУНКЦИЯ
   //---------- Бросает на форму Image и грузит изображение в Image ---------
       template <typename Type> // объявление параметра шаблона функции
 void pict_change(Type Pict_x){
      if(img)return;
   img  = new TImage(Form1); //<<--  создаём Image под картинку (смотреть)
    img->Top=0; img->Left=0; img->Parent=Form1;
     img->Width= Form1->Width; img->Height= Form1->Height;
 img->OnMouseUp=Form1->ImgMousUp; img->OnMouseDown=Form1->ImgMousDown;//<====== Два мышиных события ????
         img->Stretch=true;//--------------для Image которого нету нихуя
       //img->Picture->Bitmap->Assign(Pict_x);  --- .gif не двигаеться
       img->Picture->Assign(Pict_x);
       if(Form_ind){delete Form_ind; Form_ind=NULL;}
   Form1->Timer4->Enabled=true;
         }