[Unitay]

Проблему решил. Сделал так:
на Form.Create подвесил
LockFile := OpenFile(pChar('LockFile.ini'), OfStruct, OF_CREATE OR OF_READWRITE OR OF_SHARE_EXCLUSIVE);
на Form.Close : CloseHandle(LockFile);

Что-то сразу голова не сработала.