Использование разных свойств объекта в зависимости от его класса

[CraZZZy-GameRRR]

Здравствуйте.

Нубский вопрос, но всё же... Подскажите пожалуйста, как в freepascal можно обращаться к свойствам объекта, когда его тип определяется на этапе выполнения программы и набор свойств различен?

Набросал небольшой пример. Допустим, есть классы "Круг" и "Прямоугольник", производные от базового класса "Фигура". Во время выполнения программы в зависимости от выбора пользователя создаётся объект одной из фигур. Если выбрали "Прямоугольник" - заполняются свойства "Ширина" и "Высота". Если окружность - "Радиус".

program shapes;

uses
    SysUtils;

type

  TShape = class
  public
    function GetArea: Single; virtual; abstract;
  end;

  { TRectangle }

  TRectangle = class(TShape)
  public
    Width, Height: Single;
    function GetArea: Single; override;
  end;

  { TCircle }

  TCircle = class(TShape)
  public
    Radius: Single;
    function GetArea: Single; override;
  end;

{ TCircle }

function TCircle.GetArea: Single;
begin
  Result := Radius * Radius * 3.14;
end;

{ TRectangle }

function TRectangle.GetArea: Single;
begin
  Result := Width * Height;
end;

var
  Shape: TShape;
  Input: String;
begin
  WriteLn('Choose shape:');
  WriteLn('  c - Circle');
  WriteLn('  r - Rectangle');
  ReadLn(Input);
  case Input of
    'c':
      begin
        Shape := TCircle.Create;

        Write('Input radius: ');
        ReadLn(Input);
        Shape.Radius := StrToFloat(Input);
      end;

    'r':
      begin
        Shape := TRectangle.Create;

        Write('Input width: ');
        ReadLn(Input);
        Shape.Width := StrToFloat(Input);

        Write('Input height: ');
        ReadLn(Input);
        Shape.Height := StrToFloat(Input);
      end;
  end;
  WriteLn('Area = ', Shape.GetArea);
  ReadLn;
end.

Разумеется, компилятор ругается на отсутствие методов Width, Height и Radius у объекта типа TShape.

Как вариант вижу возможность создать по одной переменной каждого класса и в зависимости от выбора использовать одну из них. Но скорее всего можно сделать проще.

[evg_m]

        Shape := TRectangle.Create;

        Write('Input width: ');
        ReadLn(Input);
        Shape.Width := StrToFloat(Input);

        Write('Input height: ');
        ReadLn(Input);
        (Shape as TRectangle).Height := StrToFloat(Input);