Y de los apartados el último, el menú
El código en
https://gist.github.com/anonymous/6204023
como podéis ver no hay un Splash, de entrada ni una petición de usuario inicial, pero si he puesto
ya que en cuanto suba los archivos, no tendréis información para acceder, lo explico en el código de dicho botón
Código Delphi
[-]procedure TFMenu.SpeedButtonBC2Click(Sender: TObject);
begin Usuario:='José Luis';
Nivel:=9;
VarSClaveUSuario:='231068';
ALStatusBar1.Panels[1].Text:='Usuario [ '+Usuario+' ]-['+IntToStr(nivel)+']';
end;