Focus

Как да направя така, че след проверка на текстово поле (TEdit), да се показва предупреждение към потребителя, ако не покрива определени критерии и фокуса отново да се връща в полето, докато не се изпълнят критериите. Пиша следното:
if ..... then begin
if Application.MessageBox('някакъв текст', 'Предупреждение', MB_YESNO) = IDYES then edtPass.SetFocus;

Предупреждението се появява, но който и бутон да натисна текстовото поле не получава фокуса.

if <има грешка> then
begin
MessageDlg/MessageBox съобщение
edtPass.SetFocus;
end;

за какво въобще проверяваш резултата от application.messagebox ? целта е просто да покажеш че има грешка трябва да има един бутон OK. след което изпълняваш SetFocus;

всичко това в частта, единствено и само АКО има грешка ? нали правилно съм те разбрал ?