uses
ShellApi;
{$R *.dfm}
const
sInfoVersion = 'Version 20191503';
procedure TForm1.ButtonInfoClick(Sender: TObject);
begin
ShellAbout(
Handle,
'Windows mit WillieProgramm',
'WillieProgramm ' + sInfoVersion + #13 +
'Copyright 2019 Willie.',
Application.Icon.Handle);
end;
end.