[NumLock]

тип записи один, а поля разные:

Код:

type
  TFruit = record
    Name: String;
    Color: TColor;
    Figure: Integer;
    case Integer of
      0: (
        Weight: Integer;
        More: String[10];
        Words: array [0..1] of Word;
      );
      1: (
        Size: Integer;
        Next: String[10];
        Bytes: array [0..3] of Byte;
      );
  end;
...
var
  f: TFruit;
begin
  f.Weight:=123;
  f.More:='abc';
  ShowMessage(IntToStr(f.Weight));;
  ShowMessage(f.More);
  f.Size:=456;
  f.Next:='xyz';
  ShowMessage(IntToStr(f.Weight));;
  ShowMessage(f.More);
end;