调用Windows的About框

uses ShellAPI;
procedure TForm1.AbortClick(Sender: TObject);
begin
ShellAbout(0, 'MySoft', 'Copyright (c) 2007-2008', Application.Icon.Handle);
end;