>>446 何種類か方法はありますが可変部分を持つレコード型にしてみては？

type
　TRec = packed record
　case boolean of
　　false : (aaa,bbb : char);
　　true : (str : array[0..1] of char);
　end;

procedure hoge;
var
　Rec : TRec;
begin
　Rec.str := '12';
　：

packed 忘れないでね