喫茶XRAY [Mr.XRAY掲示板]

久しぶりの投稿です。
FindFirstで悩んでいます。
ＯＳ：ＷＩＮ７

テンポラリフォルダのファイルリストを取得するものですが
１．Delphi7＝＞正常動作
２．Delphi2010＝＞正常動作
３．DelphiXE＝＞
---------------------------
モジュール 'TEST.exe' のアドレス 004B3ED0 で
アドレス 00000394 に対する読み取り違反がおきました。
---------------------------
こうなります。

XEのバグでしょうか？
ご教授ください。

procedure TForm1.Button1Click(Sender: TObject);
var
    i: Integer;
    StrTempPath: Array[0..MAX_PATH] of Char;
    SearchRec: TSearchRec;
    ST: TStringList;
begin
    GetTempPath(SizeOf(StrTempPath),StrTempPath);
    ST := TStringList.Create;
    try
        i := FindFirst(StrTempPath+'*.LOG',faAnyFile,SearchRec);
        while i = 0 do begin
            ST.Add(SearchRec.Name);
            i := FindNext(SearchRec);
        end;
        SysUtils.FindClose(SearchRec);
        Memo1.Lines.Assign(ST);
    finally
        ST.Free;
    end;
end;