如何显示Windows“关于”对话框？

在USES部分，加入ShellApi单元。

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellAbout ( Handle, '应用程序名称', '你的名字',
Application.Icon.Handle );
end;