Funcion generica para crear varios forms

[Carlos Arevalo]

Tengo varios forms creados y quiero abrirlos con una funcion generica ubicada en una unit que cree para colocar todos los procedimientos genericos que utilizan los forms en mi aplicacion pero por alguna razon que desconosco la funcion me da un error cuando la ejecuto desde la unit que cree pero si la inserto en un form funciona perfectamente.

Cual puede ser el problema?

Código Delphi [-]

unit unit2;

interface

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


  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.

Este es el error:
Undeclared identifier: 'Self'

Uso Delphi 7


Muchas gracias