StrPCopy() funktioniert nicht

[Moony]

Hallo zusammen,

leider finde ich keine Lösung, warm die Funktion "StrPCopy" nicht funktioniert.

Ich versuche von einem String den Inhalt ins PChar zu laden:

Delphi-Quellcode:

  ...

  Mem    := TFileStream.Create(Filename, fmOpenRead);
  Data   := StrAlloc(Mem.Size + 1);
  ZeroMemory(Data, Mem.Size);

  try
    i := 0;
    while Mem.Position < Mem.Size do
    begin
      Mem.Read(Buf, 1);
      S := S + Chr(Buf);
      Data[i] := Chr(Buf);
      Inc(i);
    end;

    StrPCopy(Data, S);

    ...
  finally
    StrDispose(Data);
    Mem.Free;
  end;

Bei der StrPCopy-Funktion wird der Inhalt von dem String einfach nicht in das PChar kopiert!
Ich hoffe hier weiß jemand eine Lösung.

Gruß, Moony