[Sharemem+DLL] String wird nicht korrekt erzeugt.

[QuickAndDirty]

Ok, habs glaube ich, das mit new war ne gute idee.

Delphi-Quellcode:

procedure TTestform.Button1Click(Sender: TObject);
Var testwert : string;
begin

  testwert := GetString; //String aus DLL!!!!!! über sharemem geholt
  //Testwert := #1#2#3#4#5#6; //<-- dieser code geht

  getmem(Buffer,Datasize + sizeof(TRecordInfo));
  Fillchar(Buffer^,Datasize + sizeof(TRecordInfo), #0);
  With PRecordInfo(Pointer(integer(Buffer) + Datasize))^ do
  begin
    //GetMem(Bookmark , sizeof(TBookmarkInfo) );
    //FillChar(Bookmark^, sizeof(TBookmarkInfo), 0);
    New(PBookmarkinfo(Bookmark));

    PBookmarkInfo(bookmark)^.BookmarkStr := testwert;
  end;
end;

Warum zum teufel geht das? und Getmem nicht?