{ Proje kaynak koduna asagidaki kodu ekleyin }
{ Kaynak koda ulasmak icin Project|View Source}
CreateMutex(nil,FALSE,'PROGRAMADI');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
ShowMessage('Program calismakta.');
Halt(0);
end;
{
Application.Initialize;
Application.CreateForm(.......
...
...
}