Como compartir metodos entre formularios y tambien la conexion a postgres??

[aviatorz]

En Lazarus 1.0.2, estoy intentando hacer una clase que solo contenga métodos y en esos métodos se realice cualquier operación y desde los formularios llamar a esos métodos.

El problema es el siguiente cuando quiero por ejemplo inicializar la conexión de postgres.

...
class var
      {Variables de clases}
      SQLquery:TSQLQuery;
      Datasource:TDataSource;
      Transaccion:TSQLTransaction;
      PQConexion:TPQConnection;  
...
class procedure StaticData.Inicializa_conexion(usuario,contrasena,host,db:string);
begin
     PQConexion.hostname:=host;
     PQConexion.databaseName:=db;
     PQConexion.username:=usuario;
     PQConexion.password:=contrasena;

     PQConexion.transaction:= Transaccion;
     Transaccion.DataBase:=PQConexion;
     SQLQuery.Transaction:=Transaccion;
     Datasource.DataSet:=SQLQuery;

     try
        PQConexion.connected:=true;
        Application.MessageBox(PChar('Conexion realizada con exito'),PChar('Conexion'),MB_ICONINFORMATION);
     except
       on e:exception do
       begin
         Application.MessageBox(PChar('Ha ocurrido el siguiente Error: '+e.Message),PChar('Error'),MB_ICONINFORMATION);
         PQConexion.connected:=false;
       end;
     end;
end;

me aparece un error que según entiendo tiene que ver algo con la instanciacion del objeto PQConexion, el error dice:

El proyecto x ha lanzado una excepcion de la clase 'External:SIGSEGV'. en direccion 403AD0

Corrí el proyecto paso a paso y el error se da cuando intenta hacer la primera asignación al PQConexion

PQConexion.hostname:=host;

Por eso supongo que tiene que ver algo con instanciar el PQConexion, que opinan?

[aviatorz]

Al final la solución no estaba tan difícil, solo habia que instanciar los objetos de la siguiente manera

PQConexion:=TPQConnection.Create(nil);
Transaccion:=TSQLTransaction.Create(nil);
SQLQuery:=TSQLQuery.Create(nil);
Datasource:=TDataSource.Create(nil);

Tambien funciona de esta manera

PQConexion:=TPQConnection.Create(Application);
Transaccion:=TSQLTransaction.Create(Application);
SQLQuery:=TSQLQuery.Create(Application);
Datasource:=TDataSource.Create(Application);

[[rretamar]]

Se agradece el aporte.