CONEXAO COM BANCO DE DADOS MYSQL

descobri que o erro esta no meu codigo para rodar em rede se alguem puder me da uma poruqe debugo ele com o codigo nao apresenta erro algum.

var server, user, senha, lib : string;
var porta : Integer;
var conf : TIniFile;
begin
//PARAMETROS DE CONEXAO
SetCurrentDir(ExtractFilePath(Application.ExeName));
conf := TIniFile.Create(GetCurrentDir + '\\conf.ini');
lib := GetCurrentDir + '\\libmysql.dll';
SERVER := conf.ReadString('BANCO','SERVER','');
USER := conf.ReadString('BANCO','USER','');
SENHA := conf.ReadString('BANCO','SENHA','');
PORTA := integer (conf.ReadString('BANCO','PORTA',''));

conecta.Connected := false;
mysql_link.VendorLib := LIB;
mysql_link.DriverID := 'MysQl';
conecta.DriverName := 'Mysql';
conecta.Params.Add('server=' +SERVER);
conecta.Params.Add('user_name=' + USER);
conecta.Params.Add('password=' + SENHA);
conecta.Params.Add('port=' +IntToStr(PORTA));

try
conecta.Connected := True;
Except
//SHOWMESSAGE('NAO CONECTADO');

end;


end;