Verständnisfrage: String nach Pointer kopieren

[gmc616]

Die Idee hatte ich auch.
Jetzt bekomme ich eine EOutOfMemory-Exception mit "Zu wenig Arbeitsspeicher."

Mein Test-Code aktuell:

Delphi-Quellcode:

procedure fktCopy (APointer : Pointer ; AText : WideString);
  begin
   // CopyMemory(APointer,PChar(AText),2*length(AText)+1);
    PWideString(APointer)^  := AText;
  end;
var
  sStr , sData : WideString;
  pStr : Pointer;
begin
  sData := '123';
  sStr := 'Hallo Welt';
  pStr := PWideChar(sStr);

  fktCopy (pStr,sData);

  ShowMessage (sStr);

Ändere ich alle WideString in String und alle PWideChar in PChar, was mir lieber wäre, komme ich eine Schutzverletztung.

Das geht mir nicht in den Kopf