Funcion generica para crear varios forms

[Carlos Arevalo]

Gracias Neftali.

Me podrias orientar como declarar la clase para poder utilizar el Self.

Yo trate colocando:

Código Delphi [-]
type
  Tformsender = class(TForm)

Pero no me funciono, no tengo muy claro como debo hacer para declararla.

Código Delphi [-]

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,Controls, Forms;

type
  Tformsender = class(TForm)

  end;

  function xform(formsender: Tform; Sender: TObject): Boolean;

  implementation


function xform(formsender: Tform; Sender: TObject): Boolean;
begin
//en la linea sig. esta el error
 formsender:=Tform(formsender).Create(self);
  Tform(formsender).showmodal;
  result:=true;

end;

end.