Deserialisierung von einem Integer-Wert

[amoibos]

Hallo,
ich habe erfolgreich elementare Datentypen serialisiert, nun möchte ich diese wieder auslesen. Dabei gehe ich über den Weg wie Delphi selbst seine Daten im Speicher ablegt(Delphi mag Big Endian). Nun habe ich folgendes Snippet:

Code:

 
s: string[4];
int: integer absolute s;

//Testfall s = 00 00 12 34
s := copy(Data, DataPosition, sizeof(Integer)); 
int := PInteger(@s)^;

Dies liefert mir statt $1234 301989892. Ich habe keine Ahnung was da schiefläuft. s beiinhaltet den korrekten String nur macht er in der letzten Zeile was anders als gedacht..