karocs si es posible, el patron de Diseño Singleton hace eso.
Una aplicación práctica del Patron podria ser la siguiente.
Código Delphi
[-]
Interface
type
TConexion = class
private
class var Instancia :TConexion;
public
Class Function DevuelveInstancia:TConexion;
end;
Implementation
Class Function TConexion.DevuelveInstancia:TConexion;
Begin
if Instancia=nil then
Instancia := TConexion.Create;
result := Instancia;
End
Espero haber sido claro y no haberte enredado mucho.
Saludos.