CMD mit Output

[old7]

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.