[roman]

Código Delphi [-]
uses
  VarCmplx;

...

var
  Z1, Z2, W: Variant;

begin
  Z1 := VarComplexCreate(3.2, 4.8);
  Z2 := VarComplexCreate(6.8, 9.4);

  W := Z1*Z2;

  Edit1.Text := W.Real;
  Edit2.Text := W.Imaginary;
end;

// Saludos