Einer Funktion einen beliebigen Typ überliefern

[SirThornberry]

und wie lautet der Fehler? könnte dieser vielleicht am letzten parameter liegen (der in eckigen klammern) Denn normaler Weise geht es einfach keinen Typ anzugeben (siehe TStream.Write bzw. TStream.Read). Bei Typenlosen parametern musst du nur aufpassen das es als "var" deklariert ist damit es funktioniert ansonsten geht es nicht. Denn durch den Var wird letztendlich nur die Adresse übergeben (Referenz) was einem Pointer entspricht.
Also
procedure ZeigeMsg(var AMsg; ALen: Integer); entspricht
procedure ZeigeMsg(AMsg: Pointer; ALen: Integer); Und daher kann auch jeder Typ übergeben werden.