Problem mit BlockWrite und ShortInt

[JBJHJM]

Lieber nicht beachten, es scheint jetzt doch zu gehen!

Hallo,
habe ein kleines Problem (wahrscheinlich kenne ich einfach noch nicht den passenden Befehl):
Ich möchte einen ShortInt-Wert -> 2 byte in eine Datei schreiben.
Mit dem normalen Befehl a la

BlockWrite(file,shortint,4); käme dann ja mit

shortint := 64; 40 00 (in hex)

raus, was dann natürlich zurückverwandelt plötzlich Dezimal 16384 ergibt (warum das so ist, ist mir schon klar!)

Ich möchte vor dem Wert NICHT die Größe angeben und den Wert entsprechend auf die benutzten Stellen kürzen, sondern die Länge konstant bei 4 Bytes behalten, wobei die ersten bei kleineren Zahlen dann halt 0 werden sollen.

Das war jetzt wahscheinlich schwer zu verstehen, also versuche ich nochmal Klartext:
Was muss ich an

Delphi-Quellcode:

shortint := 64;
BlockWrite(file,shortint,2);

ändern, damit in der Datei in Hexadezimal am Ende 0040 anstatt 4000 steht?

Hoffe, da steigt jetzt noch jemand durch [b]