[NumLock]

вариантов много, как бит в байте:

Код:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure Oops(Sender: TObject; E: Exception); 
...
procedure TForm1.FormCreate(Sender: TObject);
const
  g: TGUID = '{EF5E2FDC-0E79-47BE-8B66-0D8982C7CE38}';
begin
  // вариант 1
  try
    CreateComObject(g);
  except
    on E: Exception do ShowMessage('У Вас Windows !правильная :)'#13#10+E.Message);
  end;
  // вариант 2
  Application.OnException:=Oops;
  CreateComObject(g);
end;

procedure TForm1.Oops(Sender: TObject; E: Exception);
begin
  ShowMessage('У Вас Windows !правильная :)'#13#10+E.Message);
end;