Повторное открытие!? :(

Подсмотрено в инете, вместо ShowMessage можешь прописать PrevApp->Restore, мне было лень.

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
HANDLE hFile = CreateFile("c:\\tempfile.tmp", GENERIC_WRITE, 0, NULL,
CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL | FILE_FLAG_DELETE_ON_CLOSE, NULL);

if(hFile == INVALID_HANDLE_VALUE)
{
ShowMessage("Попытка повторного запуска");
return 1;
}

try
{
Application->Initialize();
Application->Title = "Title"
Application->CreateForm(__classid(TForm1), &F1);
Application->Run();
}

catch (Exception &exception)
{
Application->ShowException(&exception);
}
CloseHandle(hFile);
return 0;
}

Поищи на этом форуме, такая тема уже обсуждалась и даже пример был

Вот только так не делай:

Используй мьютексы. См. форум.