unit pantaini;

interface

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

type
  TFormaPresenta = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure FormActivate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormaPresenta: TFormaPresenta;

implementation

{$R *.DFM}

procedure TFormaPresenta.FormActivate(Sender: TObject);
begin
{Timer1.Enabled:=True;
FormaPresenta.Width:=382;
FormaPresenta.Height:=164;}
end;

procedure TFormaPresenta.Timer1Timer(Sender: TObject);
begin
{if (FormaPresenta.Width<582) then
begin
FormaPresenta.Width:=FormaPresenta.Width+30;
FormaPresenta.Height:=FormaPresenta.Height+30;
end
else
begin
Timer1.Enabled:=False;
FormaPresenta.Close;
end; }
end;
end.