Lo que yo hacía en estos casos era poner explícitamente el foco en el botón OK por código:
Código Delphi
[-]
procedure TForm1.OkButttonClick(Sender: TObject);
begin
OkButton.SetFocus();
...
end;
Así me aseguraba que cualquier evento OnExit se ejecutara.
// Saludos