Масштабирование карты и компонентов на ней

Panel24->Width = Screen->Width;
Panel24->Height = Screen->Height;
Panel24->Left = 0;Panel24->Top = 0;
Image91->Left = 0;Image91->Top = 0;
Image91->Proportional=1;
Image91->AutoSize=0;
Panel22->Left = 0;Panel22->Top = 0;
Panel22->Width= Image91->Width;Panel22->Height= Image91->Height;

double w,h,l,t1;
void __fastcall TForm26::Button38Click(TObject *Sender)
{
    //Panel22->Width = Panel22->Width/1.1;
    //Panel22->Height = Panel22->Height/1.1;
    //Image91->AutoSize=0;
    //  Image91->Proportional=1;
    w= Image91->Width;
    h=Image91->Height;
    Image91->Width = w/1.1;
    Image91->Height = h/1.1;
    // Panel22->Width= Image91->Width;Panel22->Height= Image91->Height;
    for(int ia = 500; ia < Alarmpanel; ia++)
        {   l=Panel[ia]->Left;
            t1=Panel[ia]->Top;
            Panel[ia]->Left = l/1.1 ;
            Panel[ia]->Top = t1/1.1 ;
        }
    for(int it = 500; it < Troublepanel; it++)
        {
            //PanelTr[it]->Left = PanelTr[it]->Left/1.1 + 4;
            //PanelTr[it]->Top = PanelTr[it]->Top/1.1+ 4;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm26::Button39Click(TObject *Sender)
{
    //Panel22->Width = Panel22->Width*1.1;
    //Panel22->Height = Panel22->Height*1.1;
    //Image91->AutoSize=1;
    //Image91->Proportional=1;
    //Image91->Center=1;
    (double)w= Image91->Width;
    (double)h=Image91->Height;
    Image91->Width = w*1.1;
    Image91->Height = h*1.1;
    // Panel22->Width= Image91->Width;Panel22->Height= Image91->Height;
    for(int ia = 500; ia < Alarmpanel; ia++)
        {   l=Panel[ia]->Left;
            t1=Panel[ia]->Top;
            Panel[ia]->Left = l*1.1 ;
            Panel[ia]->Top = t1*1.1 ;
        }
    for(int it = 500; it < Troublepanel; it++)
        {
            //PanelTr[it]->Left = PanelTr[it]->Left*1.1;
            //PanelTr[it]->Top = PanelTr[it]->Top*1.1;
        }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    int pos = 375;
    double d = pos / 1.1;
    int result = d * 1.1;
    ShowMessage(IntToStr(result));
}