Установление фокуса при открытии модального окна

in fMain.formCreate:
fLookup := tFLookup.create (self);
{отсюда был удален код показа (show)}

in fMain.btn1Click:
fEntry := tFentry.create (self);
fEntry.showModal;

in fMain.LookupButtonClick:
fLookup.showMODAL;

in fEntry.LookupButtonClick:
fLookup.showMODAL;

in fLookup.DoneButtonClick:
fLookup.Hide;