Mostrar o diálogo About (Sobre) do Windows no Delphi

Inclua na seção uses: ShellApi

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellAbout(Handle, 'Sistema Financeiro', 'Marcelo Senger',
    Application.Icon.Handle);
end;