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

DoubleBuffered = true;

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

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