Почему первый раз на канву формы рисунок не отрисовывается?

//////////  Форму  (Для предпросмотра всё на Canvas)
 //   ВОТ ПОЧЕМУ НА КАНВАС ФОРМЫ ИЗ ЭТОГО ОБРАБОТЧИКА
 //    НИЧЕГО НЕ РИСУЕТЬСЯ ????
void __fastcall TForm2::CheckBox1Click(TObject *Sender)
{
if (CheckBox1->Checked){
ForPik=new TForm(this);
   ForPik->Height=125;  ForPik->Width=110; // Подбор размера при открытии формы
ForPik->Position=poDesigned; ForPik->BorderStyle=bsToolWindow; ForPik->Color=clBtnFace;
   ForPik->Left = Mouse->CursorPos.x+10;  ForPik->Top = Mouse->CursorPos.y-60;
   Timer2->Interval=1;
   Timer2->Enabled=true; // Что нибудь нарисовать (от сюда не рисует)// <<<  =========???
          ForPik->Show();
   ForPik->OnMouseDown=EvMousDown;//<====== Тащить его мышой ????
}
else {delete ForPik; ForPik=NULL;}
}
 
//----------------- РИСУЕТЬСЯ ТОЛЬКО ОТ СЮДА ----------------------------------------
 
void __fastcall TForm2::Timer2Timer(TObject *Sender)
{       //  Это работает только с таймера (из обработчика создания формы не работает)
 Graphics::TBitmap *tBmp = new Graphics::TBitmap;
    tBmp->Assign(Form1->Image5->Picture);// рисунок должен быть в .bmp
   ForPik->Canvas->Draw(0, 0, tBmp);   //  а то ....
   delete tBmp;
    Timer2->Enabled=false;
}

void __fastcall TForm1::onPeint(TObject *Sender)
{
    Graphics::TBitmap *tBmp = new Graphics::TBitmap;
    tBmp->Assign(Form1->Image5->Picture);
    if(ForPik) ForPik->Canvas->Draw(0, 0, tBmp);
    delete tBmp;
}

ForPik=new TForm(this);
   ForPik->Height=125;  ForPik->Width=110; // Подбор размера при открытии формы
ForPik->Position=poDesigned; ForPik->BorderStyle=bsToolWindow; ForPik->Color=clBtnFace;
   ForPik->Left = Mouse->CursorPos.x+10;  ForPik->Top = Mouse->CursorPos.y-60;
   ForPik->OnPaint = onPeint; // <- здесь
     ForPik->Show();
     . . .