Código Delphi [-]
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;