Передача управления по SetFocus

[promer]

Объясните, пожалуйста, где я ошибаюсь...
Использую компонент TDBEdit (работаю на Delphi5).
В событии OnEnter вышеназванного компонента делаю какую-то обработку. которую завершаю строчкой
<другой компонент>.SetFocus;
Все работает, но управление на <другой компонент> НЕ переходит, а остается на текущем (DBEdit)...
Почему? Помогите пожалуйста....

[Kotofff]

Покажи код полностью.

[promer]

Форма является частью большого комплекса. Посему вычленить ее несколько сложно. Завтра постараюся это сделать

[mihali4]

Код вашей формы никому не интересен.
Приведите код обработчика TDBEdit.OnEnter, о котором вы говорите.

[promer]

Привожу текст обработчик OnEnter компонента
NTov (класс TDBEdit):

(когда выполняю его пошагово, строчка "KolTov.SetFocus;"
точно выполняется, но фокус на "KolTov" НЕ передается,
а остается у данного компонента)

procedure TIPTNN.NTovEnter(Sender: TObject);
begin
  if Length(NTov.Text)=0 then
    if IPTNN.Choice_Tov then
      KolTov.SetFocus;
end;

function TIPTNN.Choice_Tov: boolean;
{****************************
 * Процедура выбора товара. *
 ****************************}
begin
  Result := false;
  OpenTest(DBM.STov, C_D, C_P+n_sb);
  DBM.STov.IndexFieldNames := 'Name;Ndop;EIzm';
  DBM.STov.First;
  ChTov  := TChTov.Create(Self);
  try
    CHTov.Height := 600;
    CHTov.PVbr.Visible := true;
    ChTov.SBNevTov.Visible := true;
    ChTov.Tag := 1;
    if ChTov.ShowModal=mrOK then
    begin   // Товарец выбран!!!!!!!
      DBM.DPstName.Value    := CHTov.STNam.Caption;
      DBM.DPstNameDop.Value := ChTov.STNamD.Caption;
      DBM.DPstNNom.Value    := ChTov.STNN.Caption;
      DBM.DPstKEI.Value     := FindKUM(ChTov.STUM.Caption);
      Result := true;
    end;
  finally
    ChTov.Free;
    DBM.STov.IndexFieldNames := '';
    DBM.STov.Close;
  end;
end;

[Stilet]

if IPTNN.Choice_Tov then

А условие то вообще срабатывает на ИСТИНУ?

[promer]

Естественно. Я же написал, что при пошаговом выполнении
строчка "KolTov.SetFocus;" выполняется...