...
if Edit1.Text = '' then
begin
MessageBox(Handle,'No ha rellenado el nombre del usuario.', 'Acceso denegado', MB_ICONERROR);
Edit1.SetFocus;
Exit
end;
if Edit2.Text = '' then
begin
MessageBox(Handle,'No ha rellenado el password para el usuario.', 'Acceso denegado', MB_ICONERROR);
Edit2.SetFocus;
Exit
end;
...