защо не мога да декларирам общ формуляр

Просто казано, дизайнерът на формуляри не поддържа общи типове.

Компилаторът е добре с общи типове. Можете да изградите потребителския интерфейс, да добавите контроли и т.н. с код за изпълнение. Но дизайнерът на формуляри не поддържа общи типове.

Поискахте работно място. Решенията са прости, но не елегантни. Трябва да постигнете силен тип клас и да направите вашата форма наследена от това.

Първо правя няколко фиктивни типа:

type
  ICRUDView<T> = Interface
   function GetObject : T;
  end;

  TMyObject = class
    function Time: String;
  end;

и проста реализация:

{ TMyObject }

function TMyObject.Time: String;
begin
  Result := TimeToStr(now);
end;

procedure TForm5.FormCreate(Sender: TObject);
begin
  Caption := Self.GetObject.Time;
end;

Тогава силният тип, от който трябва да наследите:

type
  TMyClassForm = class(TForm, ICRUDView<TMyObject>)
  strict private
    InternalObject: TMyObject;
  public
    function GetObject: TMyObject;
  end;

и неговото изпълнение:

{ TMyClassForm }

function TMyClassForm.GetObject: TMyObject;
begin
  if (InternalObject = nil) then
    InternalObject := TMyObject.Create;

  Result := InternalObject;
end;

Най-накрая правите формата си наследена от новосъздадения клас:

  TForm5 = class(TMyClassForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

и го използвайте във вашата форма

procedure TForm5.FormCreate(Sender: TObject);
begin
  Caption := Self.GetObject.Time;
end;

Работи, но не е елегантно!