Createparams, убрать потерю фокуса

[Azrael]

Есть класс, дочерний от TPanel, на нем располагается, в частности StringGrid. Задумка вызывать всплывающее окно для редактирования, есть процедура:

procedure TAliasEdit.createParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := WS_POPUP or WS_BORDER;
Params.ExStyle := WS_EX_TOOLWINDOW;
Params.WindowClass.style := Params.WindowClass.style or CS_SAVEBITS;
end;

В StringGrid предусмотрена возможность редактирования, проблема в том, что когда нажимаем интер, теряется фокус и становится активной главная форма. Как исправить?

 

[etc]

Еще раз, кто на ком ехал?