Глобальное соединение с MySQL[Решено]

[prgchip]

Есть отдельный файл с глобальными переменными, процедурами и функциями который включается в раздел USES почти каждой формы.

Код: Выделить всё

uses
  Classes, SysUtils, Dialogs, mysql50conn;

var
  cnnServer, cnnUser, cnnPasswd, cnnDatabase: String;
  cnnMySQL: TMySQL50Connection;

procedure CheckMySQLDB();

implementation

procedure CheckMySQLDB();
begin
  cnnMySQL.Create(nil); // По идее родитель должен быть Application???
  cnnMySQL.HostName:= cnnServer;
  cnnMySQL.UserName:= cnnUser;
  cnnMySQL.Password:= cnnPasswd;
  cnnMySQL.DatabaseName:= cnnDatabase;
  try
    cnnMySQL.Connected := True;
    ShowMessage('Good connect!');
  except
    ShowMessage('Bad connect!');
    Exit;
  end;
end;

end.

При вызове данной процедуры вылетает сообщение об ошибке доступа "Access violation". Думаю что cnnMySQL.Create(nil); не правильно!
Обьясните мне как правильно создать глобальное подключение.

[v-t-l]

Код: Выделить всё

cnnMySQL:=TMySQL50Connection.Create(nil);

[prgchip]

Спасибо за подсказку. Получилось.