"Acerca de" en el Menu SystemControl del Formulario

[dmassive]

Gracias!! Aqui dejo el codigo fuente por si alguien mas lo necesita:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  inherited;
  if Message.CmdType = $F200 then form2.ShowModal
end;

procedure TForm1.FormCreate(Sender: TObject);
var s: string;
begin
  AppendMenu (GetSystemMenu (Handle, FALSE), MF_SEPARATOR, 0, '');
  s := '&Acerca De...';
  AppendMenu(GetSystemMenu(Handle, False), MF_STRING, $F200, PChar(s));
end;
end.