[firstvirus]

type
TVector4D = record
end;

ничто не напоминает?
Чтож тогда придется делать так как я боялся :/
Всем спасибо, тему можно закрывать.