unit AboutForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls,
  Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.jpeg, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.BaseImageCollection, Vcl.ImageCollection,
  System.ImageList, Vcl.ImgList, Vcl.VirtualImageList, Vcl.Buttons;

type
  TfrmAbout = class(TForm)
    pnlCopyright: TPanel;
    pnlCaption: TPanel;
    Image1: TImage;
    btnOk: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function Execute: TModalResult;
  end;

var
  frmAbout: TfrmAbout;

implementation

uses
  TL.Components;

{$R *.dfm}

procedure TfrmAbout.FormCreate(Sender: TObject);
begin
  Self.pnlCaption.Caption:= 'Financiële Administratie - ' + TL.Components.Folder.AppVersion;
end;

function TfrmAbout.Execute: TModalResult;
begin
  frmAbout:= TfrmAbout.Create(nil);
  try
    Result:= frmAbout.Showmodal;
  finally
    frmAbout.Free;
  end;
end;

end.