old style delphi records really helpfull to manage serial protocols

TMiaStruttura = record
    case integer of
      0 : (content : array[0..19] of char);
      1 : (
        primidue : array[0..1] of char;
        dalduealquattro : array[0..1] of char;
        cognome : array[0..15] of char;
      )
    end;

procedure TForm7.Button1Click(Sender: TObject);
begin
  a.content := '0123456789ABCDEFGHIL';

  ShowMessage(a.dalduealquattro);

  a.dalduealquattro := 'BB';

  ShowMessage(a.content);


end;

thank’s to my self obviusly