Como criar um about box igual ao do windows

{Esta dica mostra como usar o About box do windows na sua aplicação, sem a necessidade de criar um novo form.

Declare ShellApi no uses clause da unit.}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellAbout( Application.Handle, //Handle da sua aplicação
PChar( 'Nome da sua aplicação' ),
PChar( 'Comentários sobre a sua aplicação' ),
Application.Icon.Handle ); //icone que aparece na janela, neste caso o próprio da aplicação
end;