[Сникерс]

Здравствуйте уважаемые форумчане. Есть задание переписать процедуру, осуществляющую БПФ из С++ в Делфи.
Но возникла проблема при реализации процедуры union
Исходный код С++

Код:

union { double af[2048*2]; complex ac[2048]; } a;

Аналог написанный в Делфи

Код:

procedure FFT(var nn:integer);
   Type
 b=Record
 case byte of
 0: (a1: record af: Array[0..2048*2] Of double; end);
 1: (a2: record ac: Array[0..2048] Of Variant; end);
  end;

на попытку компиляции выдает такую ошибку, ругаясь на строку

Код:

1: (a2: record ac: Array[0..2048] Of Variant; end);

Ошибка

[DCC Error] курсач.pas(89): E2154 Type 'Variant' needs finalization - not allowed in variant record

При замене Variant на double ошибка исчезает, однко для моего случая такое изменение неприемлемо
Массив Array[0..2048] Of Variant нужен чтобы потом объявить массив комплексных чисел.
Исходная процедура на С++:
FFT_R2.rar
Полный листнг моей попытки перевода:
Делфи.rar
P.S.
Подскажите люди сведущие, как в Делфи записать вот этот Сишный код?

Код:

aw/=nn