mysql与wincc连接不上

SHOW GRANTS FOR 'username'@'host';
GRANT ALL PRIVILEGES ON *.* TO 'username'@'host';

PROGRAM ConnectToMySQL
VAR
    dbConn: TMySQLConnection;
    dbQuery: TMySQLQuery;
BEGIN
    // 初始化连接
    dbConn := TMySQLConnection.Create(nil);
    dbConn.HostName := 'your_mysql_host';
    dbConn.Port := your_mysql_port;
    dbConn.Database := 'your_database';
    dbConn.User := 'your_username';
    dbConn.Password := 'your_password';
    
    // 尝试连接
    try
        dbConn.Connect;
        ShowMessage('Connected to MySQL successfully!');
    except
        on E: Exception do
            ShowMessage('Failed to connect to MySQL: ' + E.Message);
    end;
    
    // 执行查询等其他操作...
    
    // 断开连接
    dbConn.Disconnect;
    dbConn.Free;
END;