var
  smallString    : string[2];
  smallishString : ShortString;

begin
  // Назначение маленькой строке
  smallString := 'ABCD';
  ShowMessageFmt('размер smallString = %d',[SizeOf(smallString)]);
  ShowMessageFmt('smallString = %s',[smallString]);

  // Назначение в нашу немного большую строку
  smallishString := 'ABCD';
  ShowMessageFmt('размер smallishString = %d',[SizeOf(smallishString)]);
  ShowMessageFmt('smallishString = %s',[smallishString]);
end;