focus

Ola pessoal eu estou tendo uma dificuldade em colocar foco em um edit
preciso de ajuda alguem pode mim ajudar
o evento e esse

procedure TForm1.botaoCriaClick(Sender: TObject);
begin
if editnome.Text=´´ then begin
Application.MessageBox(´Preencha o campo´,´campo vazio´,
MB_OK+MB_ICONINFORMATION); exit;
editnome.SetFocus;
end;

ai e o seguinte o usuario click em cria e aparece a mensagem ele dar ok..
ai o edit tem q receber o foco
onde eu estou errando por favor mim ajude...