Что это она ругается на мой GetOpenFileName? [Delphi7]

[Ship_1]

Простенькая выдранная из примера для изучения функция

procedure TForm1.Button1Click(Sender: TObject);
var
  ofn: TOpenFilename;
  buffer: array [0..259] of Char;
  OutString: string;

const
  MAXSIZE = 260;

  FilterString = 'All Files' + #0 + '*.*' + #0 + 'Text Files' + #0 + '*.txt' + #0#0;
  OurTitle = 'Выбор файла';

begin
        ofn.lStructSize := SizeOf(ofn);
        ofn.hWndOwner := Application.Handle;
        ofn.hInstance := HInstance;
        ofn.lpstrFilter := FilterString;
        ofn.lpstrFile := buffer;
        ofn.nMaxFile := MAXSIZE;
        ofn.Flags := OFN_FILEMUSTEXIST or OFN_PATHMUSTEXIST or OFN_LONGNAMES or
                      OFN_EXPLORER or OFN_HIDEREADONLY;
        ofn.lpstrTitle := OurTitle;
        if GetOpenFileName(ofn) then
        begin
          OutString := OutString +  ofn.lpstrFile + #13#10;
          OutString := OutString +  ExtractFileName(ofn.lpstrFile) + #13#10;
          OutString := OutString +  ExtractFileExt(ofn.lpstrFile);
          MessageBox(Application.Handle, PChar(OutString), PChar(Application.ExeName), MB_OK);
        end;
end;

И выдаёт ошибку сразу при нажатии кнопки, на которую записана процедура...

Project Project1.exe raiced exception class EAccessViolatoin with message 'Access violation at address 75EDA056 in module 'comdlg32.dll'. Write of address 00000003'.

Что же ей таки не нравится и как с этим бороться?.. На всякий случай: винда - семёрка.

[phomm]

ZeroMemory(ofn, SizeOf(ofn));

В начало добаить.

[Ship_1]

Не хочет принимать.

Incompatible types: 'tagOFNA' and 'Pointer'

В начало чего? Перед присвоением значений списку ofn?
Добавил перед

ofn.lStructSize := SizeOf(ofn);

(она это не поняла)

[Аватар]

  FillChar(ofn, SizeOf(TOpenFilename), 0);
        ofn.lStructSize := SizeOf(ofn);
...