unit aiVector2D; interface type TaiVector2D = packed record x, y: single; end; type PaiVector2D = ^TaiVector2D; implementation end.