How do I retain focus in OnEnter event handler?

When attempting to display a TForm (Form2) in disabled mode
from an OnEnter event handler for a TEdit (Edit2) on another
form (Form1) the caret disappears.

procedure TForm1.Edit2Enter(Sender: TObject);
begin
  Form2.Visible := true;
  Form2.Enabled := false;
  Edit2.SetFocus;
end;

How do I prevent the caret from disappearing?  Is this a bug
in Delphi or am I doing this wrongly?

Any help would be appreciated.