Масштаб компонента

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <signal.h>
#include <time.h>
#include <math.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TImage *Image;
int formhiryna;
int formvysota;
int k=0;
int g=0;
void sneg();
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Screen->Cursors[1] =  LoadCursorFromFile("snejj.cur");
Form1->Image1->Cursor = (TCursor)1;
Form1->Image2->Cursor = (TCursor)1;
Form1->Cursor = (TCursor)1;
 
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{
if(Key==27) Form1->Close();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void sneg()
{
Image = new TImage (Form1);
Image->Picture->LoadFromFile("Icon2.ico");
formhiryna=Form1->Image1->Width;
formvysota=Form1->Image1->Height;
Form1->Image2->Top++;
k++;
if(k<20)
{
if(fmod(g,2)==0){
Form1->Image2->Left++;
k++;
}
else{
Form1->Image2->Left--;
k++;}
}
else{k=0;g++;}
if(Form1->Image2->Top==formvysota){g=0;k=0;Form1->Image2->Top=0;}
}
 
 
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
sneg();
}
//---------------------------------------------------------------------------

Image1->Picture->Bitmap->Transparent= true; // прозрачность
Image1->Picture->Bitmap->TransparentColor= clWhite;// цвет прозрачности

Image1->Picture->Icon->...