Delphi 2009 - AnsiStrings + ShortString

Ok, so I'm getting very frustrated with something that should be simple. Combining an AnsiString and a ShortString. Sounds simple?

Let's start with the short string definition:

  TFileRecord = record
    MurmurHash,
    AbsolutePosition,
    UncompressedSize,
    CompressedSize: DWORD;
    CompressionType: TCompressionType;
    Path: String[255];
  end;

Now let's see the application:

var
  SelData : TFileRecord;
  OutputFolder : AnsiString;
  OutputFile : AnsiString;
begin
  OutputFolder := 'C:\Users\Administrator\Desktop\EFSoW\MRS Examples\Test Output\';
  SelData := PFileRecord(lvFileList.Items[I].Data)^;
  OutputFile := OutputFolder + SelData.Path;

Now I can debug and step through the code and check that SelData.Path is not corrupted when the error occurs. The above is in a loop. When that loop hits a certain file from the ListView(It's always the same file), it gives me a nice AV which looks like this:

Access violation at address 00401B1D in module '*****_Archive_Creator.exe'. Read of address 00007FFC.

Then when trying to exit the application I get about a half a dozen more. So I'm assuming that memory is getting modified when it shouldn't. But how? Also TFileRecord.Path used to be an Array[0..255] Of Char, had to move it to Ansi for better speed. Like I said I can walk through the code when it hits that certain file and can see it's not corrupted.

Update: Just went even further into the code, seems that when it tries to allocate a new string the call fails on GetMem. Not sure if that's any further help.