typedef
recTest = record 
    name: string[ 10];
    account: string[ 10];
    
    case Byte of
      0: (
        dd: array[0..9] of Double;
        );
      1: (ii: array[0..99] of integer);
  end;

 
procedure TForm1.Button1Click(Sender: TObject);
type
 recTest = record
    name: string[10];
    account: string[10];
    case Qoo:Byte of
      0: (dd: array[0..9] of Double;);
      1: (ii: array[0..99] of integer);
 end;
var
  ktop : recTest;
begin
 ktop.Qoo:=0;
 ktop.dd[0]:=0.1234;
 Edit1.Text:=FloatToStr(ktop.dd[0]);     ktop.Qoo:=1;
 ktop.ii[0]:=1234;
 Edit2.Text:=intToStr(ktop.ii[0]);
end;