unit Unit2;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls;//, ShellAPI;

type

  { TForm2 }

  TForm2 = class(TForm)
    DateiName: TLabel;
    OriginalGroesse: TLabel;
    GroesseKB: TLabel;
    Verlassen: TImage;
    BildZeigen: TImage;
    procedure FormCreate(Sender: TObject);
    procedure VerlassenClick(Sender: TObject);
  private

  public

  end;

var
  Form2: TForm2;

implementation

{$R *.lfm}

{ TForm2 }

procedure TForm2.VerlassenClick(Sender: TObject);
begin
  Form2.Close;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
   WindowState := wsMaximized;
end;

end.
