Código Delphi
[-]
procedure Tfrmprincipal.FormShow(Sender: TObject);
begin
imgfondo.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\imagen\fondo.jpg');
nivel_usuario := frmLogin.nivel;
end;
[/quote]
No se si entendí bien pero para empezar si en una sentencia case deseas especificar un rango de opciones se usa ".." es decir "1..4" la forma que has escrito nunca la había visto en un case.