//--------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{

DoubleBuffered = false;

}
//--------------------------------------------------

Przesuń po formularzu obrazek znajdujący się poniżej i sprawdź czy miga, powinien przy wartości 'DoubleBuffered' ustawionej na false.
Następnie kliknij ponownie przycisk 'Pokaż', żeby ustawić metodę 'DoubleBuffered' na true.