Помогите найти ошибку в программе

[k1r1ch]

Вот программа, которая с помощью SAPI озвучивает нажатия клавиш. Настройки берутся из ini-файла вида:

[ID1] //Первый хоткей
Key=65 //Код хоткея
Str=Привет //Строчка для произношения
Mod=0 //Модификаторы хоткея
[ID2] //Второй хоткей
Key=82
Str=ShowWindow
Mod=3

Таких разделов может быть сколько угодно.
Вот исходный код, но прога вылетает на самой первой строчке в FormCreate с AccessViolation.

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IniFiles, StdCtrls, OleServer, SpeechLib_TLB;

type
  TMainForm = class(TForm)
    ExitButton: TButton;
    Voice: TSpVoice;
    HideButton: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ExitButtonClick(Sender: TObject);
    procedure HideButtonClick(Sender: TObject);
  private
    { Private declarations }
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
  public
    { Public declarations }
  end;

const
  DefaultSettings = 82;

var
  MainForm: TMainForm;
  Ini: TIniFile;
  Key, Modifier: integer;
  Strs: array of string;
  IDs: array of integer;
  SettingsHotKey: integer;

implementation

{$R *.dfm}

procedure TMainForm.ExitButtonClick(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.FormCreate(Sender: TObject);
var i: integer; List: TStrings;
begin
  List := TStringList.Create;
  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Settings.ini');
  Ini.ReadSections(List);
  for i := 0 to List.Count - 1 do
    begin
      IDs[i] := GlobalAddAtom(PWChar('JokeHotkey' + IntToStr(i + 1)));
      Key := Ini.ReadInteger(List[i], 'Key', DefaultSettings);
      Modifier := Ini.ReadInteger(List[i], 'Mod', DefaultSettings);
      RegisterHotKey(MainForm.Handle, IDs[0], Modifier, Key);
      Strs[i] := Ini.ReadString(List[i], 'Str', 'Привет');
      if Strs[i] = 'ShowWindow' then SettingsHotKey := IDs[i];
    end;
  Ini.Free;
end;

procedure TMainForm.FormDestroy(Sender: TObject);
var i: integer;
begin
  for i := 0 to Length(IDs) do
    UnRegisterHotKey(MainForm.Handle, IDs[i]);
end;

procedure TMainForm.HideButtonClick(Sender: TObject);
begin
  Hide;
end;

procedure TMainForm.WMHotKey(var Msg: TWMHotKey);
var i: integer;
begin
  if Msg.HotKey = SettingsHotKey then
    begin
      if not MainForm.Visible then MainForm.Show else MainForm.Hide;
      Exit;
    end;
  for i := 0 to Length(IDs) do
    if IDs[i] = Msg.HotKey then if not MainForm.Visible then
      begin
        Voice.Speak(Strs[i], SVSFlagsAsync);
        Exit;
      end;
end;

end.

Помогите найти ошибку!

[Alex Cones]

F7?.......

[k1r1ch]

Прикольная функция)
Вот на этой строчке ошибка:

IDs[i] := GlobalAddAtom(PWChar('JokeHotkey' + IntToStr(i + 1)));

Но как это понимать?

[Alex Cones]

Ids - array of integer.
А где ты устанавливаешь его длину?

[k1r1ch]

Он как бы динамический!

[Alex Cones]

А длину устанавливать кто будет? Или ты думаешь, что если динамический, то он сам поймет, сколько памяти тебе надо?

[k1r1ch]

Да, спасибо, заработало! Но как-то все неправильно работает! То есть при нажатии Ctrl+Alt+R должно появляться окошко программы, а она говорит привет и все... В теории все должно работать... Может есть какие то мысли, почему так?

[k1r1ch]

Все отыскал ошибку, спасибо за помощь!!!