调用系统关于对话框

uses ShellAPI;

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