unit fasesoft;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  Tasesoft = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }

  public
    { Public declarations }
    cadena:string;
  end;

var
  asesoft: Tasesoft;

implementation

uses menu;

{$R *.dfm}

procedure Tasesoft.FormKeyPress(Sender: TObject; var Key: Char);
VAR AUX:BOOLEAN;
begin
   AUX:=FALSE;
     if key = #13 then
     begin
        IF UPPERCASE(CADENA) = 'LOLI' THEN
        begin
 //          self.Close;
           FMENU.CAMBIO;
           AUX:=TRUE;
        end
        else
           CADENA:= '';
     end;
     IF (ORD(KEY)) > 20 THEN
          CADENA := CADENA + KEY;
     IF AUX THEN
        SELF.CLOSE;
end;

procedure Tasesoft.FormCreate(Sender: TObject);
begin
   cadena:='';
end;

procedure Tasesoft.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action := cafree;
end;

end.