I think this code will need a very small number of coders, because using Delphi is rare in itself, but still.
Hope that at least someone will need it.
FVector = packed record
X, Y, Z: Single;
class function Create(const x, y, z: Single): FVector; inline; static;