Mostrar 1 ventana acerca de sistema.

[luisgutierrezb]

procedure TAcercade.Button1Click(Sender: TObject);
begin
ShellAbout (Handle,'Titulo en Barra','Ejemplo acerca de',Application.Icon.Handle);
//A : Titulo de la Barra y dela primera linea
//B: Otra información adiconal
end;

[Alcolea]

Sólo agregar que se debe poner en el uses la unit: ShellAPI para que funcione.