1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

...
var pBuffer : Array Of Char;
      strData : AnsiString;
begin

  SetLength(pBuffer, iCount);
  // Aktionen mit pBuffer
  strData := ???

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button1Click(Sender: TObject);
var
  szBuffer : array [0..255] of Char;
  astr     : AnsiString;
begin
  lstrcpy(szBuffer, 'Hello World');
  astr := String(szBuffer);
  ShowMessage(astr);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

var m_paBuffer : Array Of Char

        ....

function CFile.GetData(Start, Length : LongInt) : AnsiString;
var iBytesRead : DWord;
begin

        // Buffer für Daten anlegen
        SetLength(self.m_paBuffer , Length);

        // FilePointer setzen
        SetFilePointer(self.m_hFile, Start, nil, FILE_BEGIN);

        // Daten einlesen
        ReadFile(self.m_hFile, self.m_paBuffer, Length, iBytesRead, nil);

        // Eingelesene Daten zurückgeben
        GetData := String(self.m_paBuffer);  // <--- Absturz

end;					

1:
2:
3:
4:
5:

ReadFile(self.m_hFile,
  @self.m_paBuffer[0],
  Length,
  iBytesRead,
  nil);					

1:
2:
3:
4:
5:

ReadFile(self.m_hFile,
  pointer(@self.m_paBuffer)^,
  Length,
  iBytesRead,
  nil);					

1:

Result := string(@self.m_paBuffer[0]);