Holacode:
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TFPrincipal), &FPrincipal);
Application->CreateForm(__classid(TFSplash), &FSplash);
FSplash->Show();
FSplash->Refresh();
Application->CreateForm(...); // Creas todos los forms
....
delete FSplash;
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
Yo lo hago asin, y funciona bien, si creas pocos TForms usa el sleep, pero recuerda que el parametro de sleep son milisegundos, no se te ocurra poner sleep(5) porque se lo pasara por el forro.
Salu2
KAYETANO