unit presenta;

interface

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

type
  TFormaPresentacion = class(TForm)
    Shape1: TShape;
    Image1: TImage;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormaPresentacion: TFormaPresentacion;

implementation

uses Principa;

{$R *.DFM}

procedure TFormaPresentacion.Timer1Timer(Sender: TObject);
begin
Close;
end;

procedure TFormaPresentacion.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Close;
end;

procedure TFormaPresentacion.FormMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Close;
end;

end.