//------------永久化类------
function F_Myclass: TMyclass;
implementation
var
Myclass: TMyclass;
{ TScriptDetail }
function F_Myclass:TMyclass;
begin
if not Assigned(Myclass) then
begin
Myclass := TMyclass.create
end
else
begin
end;
Result := Myclass;
end;
.........................
initialization
finalization
if Assigned(Myclass) then
begin
FreeAndNil(Myclass);
end;