Ayuda Conexion Mysql con ZeosLib Unit Global

[semita]

Hola: Otra vez molestandoles con algo que me hizo perder mucho tiempo. Ya se como conectar con Zlib en un formulario. Ejecutar Consultas etc.

hice una Unit general de modo que para conectarme desde cualquier FORM solo llamo al Unit y no estoy reescribiendo codigos para conectarme en todos los Forms. EJM.

Código Delphi [-]
unit funciones;

interface
uses
  Windows, Dialogs, SysUtils, ZAbstractRODataset, ZAbstractDataset, ZDataset, ZAbstractConnection,  ZConnection, DB;
var
  sqlConector: TZConnection;
  sqlConsultas: TZQuery;
  procedure Conectar_Mysql;
  procedure Consulta(sem_SQL: string);
implementation
procedure Conectar_Mysql;
begin

  sqlConector.HostName :=  '127.0.0.1';
  sqlConector.Database := 'libros';
  sqlConector.Protocol := 'mysql';
  sqlConector.User:= 'root';
  sqlConector.Password:= 'admin';
  sqlConector.Connect;

end;

procedure Consulta(sem_SQL: string);
begin
  Conectar_Mysql;
  sqlConsultas.Close;
  sqlConsultas.SQL.Clear;
  sqlConsultas.SQL.Add(sem_SQL);
  sqlConsultas.Open;

  //sqlConector.Free

end;
end.

De este modo mi intension es conectar desde cualquier formulario simplemente llamando esta unit. Compila todo Correcto pero al momento de ejecutar el procedimiento Conectar_Mysql me da error. justo en la linea sqlConector.HostName := '127.0.0.1'; y supongo los demás sqlConector.xxx.

E programado mucho en PHP y es asi como trabajo mis consultas.

¿Estoy haciéndolo bien? alguien me oriente un poco mas por favor. En un Formulario normal esta conexión funciona correctamente. El Error solo es cuando lo traslado a un Unit Global que llamo de todos los Formularios.