unit Acerca;

interface

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

type
  TFormaAcerca = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Timer1: TTimer;
    Label5: TLabel;
    Nombre: TLabel;
    Panel1: TPanel;
    Bevel3: TBevel;
    Bevel4: TBevel;
    Bevel5: TBevel;
    Panel2: TPanel;
    Shape1: TShape;
    Label6: TLabel;
    Label8: TLabel;
    Image1: TImage;
    Label7: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Panel2Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Label8MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormaAcerca: TFormaAcerca;
  i:integer;

implementation

{$R *.DFM}



procedure TFormaAcerca.Timer1Timer(Sender: TObject);
var
nombres:array [1..5] of String[45];

begin
nombres[1]:='Roberto Domínguez ';
nombres[2]:=' ';
nombres[3]:=' ';
nombres[4]:='Carlos Espinosa ';
nombres[5]:='Jorge Hernández ';

Nombre.Caption:=Nombres[i];

if i>4 then i:=1
else
i:=i+1;
end;

procedure TFormaAcerca.FormCreate(Sender: TObject);
begin
i:=1;
end;

procedure TFormaAcerca.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
Timer1.Enabled:=False;
end;



procedure TFormaAcerca.Panel2Click(Sender: TObject);
begin
Close;
end;

procedure TFormaAcerca.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=27 then Close;
end;

procedure TFormaAcerca.Panel1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(FormaAcerca.Handle, WM_SYSCOMMAND, $F012, 0);

end;

procedure TFormaAcerca.Label8MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(FormaAcerca.Handle, WM_SYSCOMMAND, $F012, 0);
end;


end.