Podrias hacer un pequeño procedimiento que haga eso
Código Delphi
[-]procedure TForm1.HabilitaMenu(bHabilitar : boolean);
var
i : smallint;
begin
for i:= 0 to mnuMiMenu.Items.count - 1 do
mnuMiMenu.Items[i].enabled := bHabilitar;
end;
............ y lo llamarias asi
Habilitar(false);
Leer_usuario;
Habilitar(true);
Saludos
P.D. Parece que los bolivianos estamos muy activos hoy en el Club.....saludos a todos.