[delphicoding]

Решено - первый код вполне правильный и хорошо работает, не хватало только полного очищения/уничтожения переменной fOkno, для этого потребовалось всего-лишь дописать в OnClose строку fOkno:=nil; и всё, никаких извратов и ненужных конструкций.